/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Personal / LyfeTyme™ Calendar

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 4c 79 66 65 54 79 | 6d 65 aa 20 43 61 6c 65 |..LyfeTy|me. Cale|
|00000010| 6e 64 61 72 00 00 00 00 | 00 00 00 00 00 00 00 00 |ndar....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 00 e4 c0 00 | 00 9b a8 9f 2f 6f 97 a0 |........|..../o..|
|00000060| 81 e1 92 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c0 62 00 00 |........|.....b..|
|00000080| 00 00 10 00 53 54 41 4b | ff ff ff ff fa 28 67 b0 |....STAK|.....(g.|
|00000090| 00 00 00 08 00 00 e4 c0 | 00 00 10 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 03 | 00 00 0e b3 00 00 00 14 |........|........|
|000000b0| 00 00 10 17 00 00 2a 6b | 00 00 00 00 00 00 00 00 |......*k|........|
|000000c0| 00 00 0d e2 00 00 00 00 | 00 05 00 00 10 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 01 20 80 00 | 01 20 80 00 01 22 80 00 |..... ..|. ..."..|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 22 00 00 00 22 00 |........|.."...".|
|00000350| 88 00 22 00 88 00 22 00 | cc 00 33 00 cc 00 33 00 |.."...".|..3...3.|
|00000360| cc 88 33 22 cc 88 33 22 | ee 88 bb 22 ee 88 bb 22 |..3"..3"|..."..."|
|00000370| ee cc bb 33 ee cc bb 33 | ff cc ff 33 ff cc ff 33 |...3...3|...3...3|
|00000380| ff ee ff bb ff ee ff bb | ff ff ff bb ff ff ff bb |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 2d 2d 4c 79 66 65 54 79 | 6d 65 aa 20 43 61 6c 65 |--LyfeTy|me. Cale|
|00000690| 6e 64 61 72 0d 2d 2d 41 | 20 48 79 2d 50 65 72 70 |ndar.--A| Hy-Perp|
|000006a0| 65 74 75 61 6c 20 43 61 | 6c 65 6e 64 61 72 20 43 |etual Ca|lendar C|
|000006b0| 6f 76 65 72 69 6e 67 20 | 74 68 65 20 53 61 6d 65 |overing |the Same|
|000006c0| 20 44 61 74 65 73 20 61 | 73 20 48 79 70 65 72 43 | Dates a|s HyperC|
|000006d0| 61 72 64 a8 0d 2d 2d 50 | 68 69 6c 20 54 6f 6c 6c |ard..--P|hil Toll|
|000006e0| 0d 2d 2d 56 65 72 73 69 | 6f 6e 20 31 2e 31 0d 0d |.--Versi|on 1.1..|
|000006f0| 2d 2d 51 75 65 73 74 69 | 6f 6e 73 20 6f 72 20 43 |--Questi|ons or C|
|00000700| 6f 6d 6d 65 6e 74 73 3f | 20 43 6f 6e 74 61 63 74 |omments?| Contact|
|00000710| 3a 0d 2d 2d 50 68 69 6c | 69 70 20 41 2e 20 54 6f |:.--Phil|ip A. To|
|00000720| 6c 6c 2c 20 4a 72 2e 0d | 2d 2d 32 33 30 36 20 4e |ll, Jr..|--2306 N|
|00000730| 6f 76 65 6d 62 65 72 20 | 4c 61 6e 65 0d 2d 2d 52 |ovember |Lane.--R|
|00000740| 65 73 74 6f 6e 2c 20 56 | 41 20 20 20 32 32 30 39 |eston, V|A   2209|
|00000750| 31 2d 34 36 30 39 0d 2d | 2d 43 6f 6d 70 75 53 65 |1-4609.-|-CompuSe|
|00000760| 72 76 65 20 37 33 32 30 | 30 2c 33 35 35 30 0d 0d |rve 7320|0,3550..|
|00000770| 2d 2d a8 48 79 70 65 72 | 43 61 72 64 20 69 73 20 |--.Hyper|Card is |
|00000780| 61 20 72 65 67 69 73 74 | 65 72 65 64 20 74 72 61 |a regist|ered tra|
|00000790| 64 65 6d 61 72 6b 20 6f | 66 20 41 70 70 6c 65 20 |demark o|f Apple |
|000007a0| 43 6f 6d 70 75 74 65 72 | 20 43 6f 72 70 6f 72 61 |Computer| Corpora|
|000007b0| 74 69 6f 6e 0d 0d 0d 6f | 6e 20 4c 79 66 65 4c 79 |tion...o|n LyfeLy|
|000007c0| 6e 6b 0d 0d 2d 2d 4c 79 | 66 65 54 79 6d 65 aa 20 |nk..--Ly|feTyme. |
|000007d0| 43 61 6c 65 6e 64 61 72 | 20 73 65 6e 64 73 20 74 |Calendar| sends t|
|000007e0| 68 69 73 20 6d 65 73 73 | 61 67 65 20 77 68 65 6e |his mess|age when|
|000007f0| 20 61 20 64 61 74 65 20 | 68 61 73 20 62 65 65 6e | a date |has been|
|00000800| 20 73 65 6c 65 63 74 65 | 64 0d 2d 2d 62 79 20 74 | selecte|d.--by t|
|00000810| 68 65 20 75 73 65 72 2e | 20 20 54 68 65 20 6d 65 |he user.|  The me|
|00000820| 73 73 61 67 65 20 70 61 | 72 61 6d 65 74 65 72 73 |ssage pa|rameters|
|00000830| 20 61 72 65 3a 0d 2d 2d | 0d 2d 2d 22 43 61 6c 65 | are:.--|.--"Cale|
|00000840| 6e 64 61 72 22 2c 20 77 | 68 69 63 68 20 74 65 6c |ndar", w|hich tel|
|00000850| 6c 73 20 74 68 65 20 72 | 65 63 65 69 76 69 6e 67 |ls the r|eceiving|
|00000860| 20 73 63 72 69 70 74 20 | 77 68 61 74 20 74 68 65 | script |what the|
|00000870| 20 73 6f 75 72 63 65 20 | 6f 66 20 74 68 65 0d 2d | source |of the.-|
|00000880| 2d 20 20 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |-   info|rmation |
|00000890| 69 73 3b 0d 2d 2d 0d 2d | 2d 66 53 65 6c 65 63 74 |is;.--.-|-fSelect|
|000008a0| 65 64 44 61 74 65 2c 20 | 77 68 69 63 68 20 69 73 |edDate, |which is|
|000008b0| 20 74 68 65 20 64 61 74 | 65 20 73 65 6c 65 63 74 | the dat|e select|
|000008c0| 65 64 20 62 79 20 74 68 | 65 20 75 73 65 72 3b 20 |ed by th|e user; |
|000008d0| 61 6e 64 0d 2d 2d 0d 2d | 2d 61 20 74 68 69 72 64 |and.--.-|-a third|
|000008e0| 20 70 61 72 61 6d 65 74 | 65 72 20 77 68 69 63 68 | paramet|er which|
|000008f0| 20 74 65 6c 6c 73 20 73 | 6f 6d 65 74 68 69 6e 67 | tells s|omething|
|00000900| 20 61 62 6f 75 74 20 74 | 68 65 20 68 61 6e 64 6c | about t|he handl|
|00000910| 65 72 0d 2d 2d 69 6e 20 | 74 68 69 73 20 73 74 61 |er.--in |this sta|
|00000920| 63 6b 20 74 68 61 74 20 | 69 73 20 73 65 6e 64 69 |ck that |is sendi|
|00000930| 6e 67 20 74 68 65 20 69 | 6e 66 6f 72 6d 61 74 69 |ng the i|nformati|
|00000940| 6f 6e 2e 20 20 49 6e 20 | 74 68 69 73 20 76 65 72 |on.  In |this ver|
|00000950| 73 69 6f 6e 2c 0d 2d 2d | 74 68 69 73 20 70 61 72 |sion,.--|this par|
|00000960| 61 6d 65 74 65 72 20 63 | 61 6e 20 62 65 20 65 69 |ameter c|an be ei|
|00000970| 74 68 65 72 20 22 53 65 | 6c 65 63 74 69 6f 6e 54 |ther "Se|lectionT|
|00000980| 69 6d 65 22 2c 20 77 68 | 69 63 68 20 73 61 79 73 |ime", wh|ich says|
|00000990| 20 74 68 61 74 0d 2d 2d | 74 68 65 20 64 61 74 65 | that.--|the date|
|000009a0| 20 69 6e 66 6f 20 77 61 | 73 20 73 65 6e 74 20 61 | info wa|s sent a|
|000009b0| 74 20 74 68 65 20 6d 6f | 6d 65 6e 74 20 74 68 65 |t the mo|ment the|
|000009c0| 20 75 73 65 72 20 61 63 | 74 75 61 6c 6c 79 20 73 | user ac|tually s|
|000009d0| 65 6c 65 63 74 65 64 0d | 2d 2d 74 68 61 74 20 64 |elected.|--that d|
|000009e0| 61 74 65 20 28 69 6e 20 | 74 68 65 20 22 6d 6f 75 |ate (in |the "mou|
|000009f0| 73 65 55 70 22 20 68 61 | 6e 64 6c 65 72 20 6f 66 |seUp" ha|ndler of|
|00000a00| 20 74 68 65 20 62 61 63 | 6b 67 72 6f 75 6e 64 20 | the bac|kground |
|00000a10| 73 63 72 69 70 74 29 3b | 20 6f 72 0d 2d 2d 22 52 |script);| or.--"R|
|00000a20| 65 74 75 72 6e 54 69 6d | 65 22 2c 20 77 68 69 63 |eturnTim|e", whic|
|00000a30| 68 20 73 61 79 73 20 74 | 68 61 74 20 74 68 65 20 |h says t|hat the |
|00000a40| 64 61 74 65 20 69 6e 66 | 6f 20 77 61 73 20 73 65 |date inf|o was se|
|00000a50| 6e 74 20 77 68 65 6e 20 | 74 68 65 20 75 73 65 72 |nt when |the user|
|00000a60| 0d 2d 2d 64 65 63 69 64 | 65 64 20 74 6f 20 72 65 |.--decid|ed to re|
|00000a70| 74 75 72 6e 20 74 6f 20 | 74 68 65 20 63 61 6c 6c |turn to |the call|
|00000a80| 69 6e 67 20 73 74 61 63 | 6b 2e 0d 2d 2d 0d 2d 2d |ing stac|k..--.--|
|00000a90| 50 75 74 20 79 6f 75 72 | 20 73 63 72 69 70 74 20 |Put your| script |
|00000aa0| 68 65 72 65 20 74 6f 20 | 68 61 6e 64 6c 65 20 74 |here to |handle t|
|00000ab0| 68 69 73 20 63 6f 6d 6d | 61 6e 64 20 77 69 74 68 |his comm|and with|
|00000ac0| 69 6e 20 74 68 69 73 20 | 73 74 61 63 6b 2c 0d 2d |in this |stack,.-|
|00000ad0| 2d 6f 72 20 74 61 6b 65 | 20 6f 75 74 20 74 68 69 |-or take| out thi|
|00000ae0| 73 20 72 65 66 65 72 65 | 6e 63 65 20 61 6e 64 20 |s refere|nce and |
|00000af0| 69 6e 73 74 61 6c 6c 20 | 79 6f 75 72 20 73 63 72 |install |your scr|
|00000b00| 69 70 74 20 66 75 72 74 | 68 65 72 20 75 70 0d 2d |ipt furt|her up.-|
|00000b10| 2d 48 79 70 65 72 43 61 | 72 64 27 73 a8 20 69 6e |-HyperCa|rd's. in|
|00000b20| 68 65 72 69 74 61 6e 63 | 65 20 70 61 74 68 2e 0d |heritanc|e path..|
|00000b30| 0d 2d 2d 54 68 69 73 20 | 66 65 61 74 75 72 65 20 |.--This |feature |
|00000b40| 69 73 20 6f 6e 6c 79 20 | 64 6f 63 75 6d 65 6e 74 |is only |document|
|00000b50| 65 64 20 68 65 72 65 20 | 69 6e 20 56 65 72 73 69 |ed here |in Versi|
|00000b60| 6f 6e 20 31 2e 30 2e 0d | 0d 65 6e 64 20 4c 79 66 |on 1.0..|.end Lyf|
|00000b70| 65 4c 79 6e 6b 00 65 6e | 74 65 64 20 68 65 72 65 |eLynk.en|ted here|
|00000b80| 20 69 6e 20 56 65 72 73 | 69 6f 6e 20 31 2e 30 2e | in Vers|ion 1.0.|
|00000b90| 0d 0d 65 6e 64 20 4c 79 | 66 65 4c 79 6e 6b 00 0d |..end Ly|feLynk..|
|00000ba0| 69 66 20 73 6f 6d 65 6e | 75 6d 62 65 72 20 3e 20 |if somen|umber > |
|00000bb0| 31 32 20 74 68 65 6e 20 | 70 75 74 20 63 68 61 72 |12 then |put char|
|00000bc0| 20 32 20 6f 66 20 73 6f | 6d 65 6e 75 6d 62 65 72 | 2 of so|menumber|
|00000bd0| 20 26 20 22 20 74 65 65 | 6e 22 20 61 66 74 65 72 | & " tee|n" after|
|00000be0| 20 66 77 6f 72 64 73 0d | 70 75 74 20 22 22 20 69 | fwords.|put "" i|
|00000bf0| 6e 74 6f 20 73 6f 6d 65 | 6e 75 6d 62 65 72 0d 70 |nto some|number.p|
|00000c00| 75 74 20 22 30 22 20 69 | 6e 74 6f 20 6e 75 6d 6c |ut "0" i|nto numl|
|00000c10| 65 6e 67 74 68 0d 65 6e | 64 20 69 66 0d 69 66 20 |ength.en|d if.if |
|00000c20| 63 68 61 72 20 31 20 6f | 66 20 73 6f 6d 65 6e 75 |char 1 o|f somenu|
|00000c30| 6d 62 65 72 20 3e 20 31 | 0d 74 68 65 6e 0d 69 66 |mber > 1|.then.if|
|00000c40| 20 63 68 61 72 20 31 20 | 6f 66 20 73 6f 6d 65 6e | char 1 |of somen|
|00000c50| 75 6d 62 65 72 20 69 73 | 20 22 32 22 20 74 68 65 |umber is| "2" the|
|00000c60| 6e 20 70 75 74 20 22 74 | 77 65 6e 74 79 20 22 20 |n put "t|wenty " |
|00000c70| 61 66 74 65 72 20 66 77 | 6f 72 64 73 0d 69 66 20 |after fw|ords.if |
|00000c80| 63 68 61 72 20 31 20 6f | 66 20 73 6f 6d 65 6e 75 |char 1 o|f somenu|
|00000c90| 6d 62 65 72 20 69 73 20 | 22 33 22 20 74 68 65 6e |mber is |"3" then|
|00000ca0| 20 70 75 74 20 22 74 68 | 69 72 74 79 20 22 20 61 | put "th|irty " a|
|00000cb0| 66 74 65 72 20 66 77 6f | 72 64 73 0d 69 66 20 63 |fter fwo|rds.if c|
|00000cc0| 68 61 72 20 31 20 6f 66 | 20 73 6f 6d 65 6e 75 6d |har 1 of| somenum|
|00000cd0| 62 65 72 20 69 73 20 22 | 35 22 20 74 68 65 6e 20 |ber is "|5" then |
|00000ce0| 70 75 74 20 22 66 69 66 | 74 79 20 22 20 61 66 74 |put "fif|ty " aft|
|00000cf0| 65 72 20 66 77 6f 72 64 | 73 0d 69 66 20 63 68 61 |er fword|s.if cha|
|00000d00| 72 20 31 20 6f 66 20 73 | 6f 6d 65 6e 75 6d 62 65 |r 1 of s|omenumbe|
|00000d10| 72 20 3e 20 33 20 61 6e | 64 20 73 6f 6d 65 6e 75 |r > 3 an|d somenu|
|00000d20| 6d 62 65 72 20 3c 3e 20 | 35 20 74 68 65 6e 20 70 |mber <> |5 then p|
|00000d30| 75 74 20 63 68 61 72 20 | 31 20 6f 66 20 73 6f 6d |ut char |1 of som|
|00000d40| 65 6e 75 6d 62 65 72 20 | 26 20 22 20 74 65 65 20 |enumber |& " tee |
|00000d50| 22 20 61 66 74 65 72 20 | 66 77 6f 72 64 73 0d 70 |" after |fwords.p|
|00000d60| 75 74 20 63 68 61 72 20 | 32 20 6f 66 20 73 6f 6d |ut char |2 of som|
|00000d70| 65 6e 75 6d 62 65 72 20 | 69 6e 74 6f 20 73 6f 6d |enumber |into som|
|00000d80| 65 6e 75 6d 62 65 72 0d | 70 75 74 20 22 31 22 20 |enumber.|put "1" |
|00000d90| 69 6e 74 6f 20 6e 75 6d | 6c 65 6e 67 74 68 0d 65 |into num|length.e|
|00000da0| 6e 64 20 69 66 0d 69 66 | 20 6e 75 6d 6c 65 6e 67 |nd if.if| numleng|
|00000db0| 74 68 20 3e 20 30 20 74 | 68 65 6e 20 70 75 74 20 |th > 0 t|hen put |
|00000dc0| 73 6f 6d 65 6e 75 6d 62 | 65 72 20 61 66 74 65 72 |somenumb|er after|
|00000dd0| 20 66 77 6f 72 64 73 0d | 65 6e 64 20 69 66 0d 72 | fwords.|end if.r|
|00000de0| 65 74 75 72 6e 20 66 77 | 6f 72 64 73 0d 70 75 74 |eturn fw|ords.put|
|00000df0| 20 66 77 6f 72 64 73 0d | 65 6e 64 20 66 75 6e 63 | fwords.|end func|
|00000e00| 74 69 6f 6e 0d 0d 66 75 | 6e 63 74 69 6f 6e 20 64 |tion..fu|nction d|
|00000e10| 61 74 65 26 74 69 6d 65 | 74 6f 73 65 63 73 20 74 |ate&time|tosecs t|
|00000e20| 69 6d 65 2c 20 64 61 74 | 65 0d 70 75 74 20 64 61 |ime, dat|e.put da|
|00000e30| 79 73 65 63 73 20 28 74 | 69 6d 65 29 20 69 6e 74 |ysecs (t|ime) int|
|00000e40| 6f 20 66 68 6f 6c 64 0d | 70 75 74 20 64 61 74 65 |o fhold.|put date|
|00000e50| 20 69 6e 74 6f 20 76 61 | 6e 73 77 65 72 0d 63 6f | into va|nswer.co|
|00000e60| 6e 76 65 72 74 20 76 61 | 6e 73 77 65 72 20 74 6f |nvert va|nswer to|
|00000e70| 20 73 65 63 6f 6e 64 73 | 0d 61 64 64 20 66 68 6f | seconds|.add fho|
|00000e80| 6c 64 20 74 6f 20 76 61 | 6e 73 77 65 72 0d 72 65 |ld to va|nswer.re|
|00000e90| 74 75 72 6e 20 76 61 6e | 73 77 65 72 0d 65 6e 64 |turn van|swer.end|
|00000ea0| 20 64 61 74 65 26 74 69 | 6d 65 74 6f 73 65 63 73 | date&ti|metosecs|
|00000eb0| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 64 61 79 73 65 |..functi|on dayse|
|00000ec0| 63 73 20 74 69 6d 65 0d | 70 75 74 20 74 69 6d 65 |cs time.|put time|
|00000ed0| 20 69 6e 74 6f 20 76 61 | 6e 73 77 65 72 0d 63 6f | into va|nswer.co|
|00000ee0| 6e 76 65 72 74 20 76 61 | 6e 73 77 65 72 20 74 6f |nvert va|nswer to|
|00000ef0| 20 73 65 63 6f 6e 64 73 | 0d 70 75 74 20 74 68 65 | seconds|.put the|
|00000f00| 20 64 61 74 65 20 69 6e | 74 6f 20 66 68 6f 6c 64 | date in|to fhold|
|00000f10| 0d 63 6f 6e 76 65 72 74 | 20 66 68 6f 6c 64 20 74 |.convert| fhold t|
|00000f20| 6f 20 73 65 63 6f 6e 64 | 73 0d 73 75 62 74 72 61 |o second|s.subtra|
|00000f30| 63 74 20 66 68 6f 6c 64 | 20 66 72 6f 6d 20 76 61 |ct fhold| from va|
|00000f40| 6e 73 77 65 72 0d 72 65 | 74 75 72 6e 20 76 61 6e |nswer.re|turn van|
|00000f50| 73 77 65 72 0d 65 6e 64 | 20 64 61 79 73 65 63 73 |swer.end| daysecs|
|00000f60| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 62 75 69 6c 64 |..functi|on build|
|00000f70| 64 61 74 65 20 64 61 79 | 2c 20 6d 6f 6e 74 68 2c |date day|, month,|
|00000f80| 20 64 61 74 65 2c 20 79 | 65 61 72 0d 70 75 74 20 | date, y|ear.put |
|00000f90| 64 61 79 20 26 20 22 2c | 20 22 20 26 20 6d 6f 6e |day & ",| " & mon|
|00000fa0| 74 68 20 26 26 20 64 61 | 74 65 20 26 20 22 2c 20 |th && da|te & ", |
|00000fb0| 22 20 26 20 79 65 61 72 | 20 69 6e 74 6f 20 76 61 |" & year| into va|
|00000fc0| 6e 73 77 65 72 0d 72 65 | 74 75 72 6e 20 76 61 6e |nswer.re|turn van|
|00000fd0| 73 77 65 72 0d 65 6e 64 | 20 62 75 69 6c 64 64 61 |swer.end| buildda|
|00000fe0| 74 65 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |te......|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001080| 00 00 02 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00001090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010a0| 00 00 00 00 00 00 00 00 | 00 03 2e 99 00 03 5d 56 |........|......]V|
|000010b0| 00 03 8b 8d 00 07 1d e2 | 00 00 d4 b3 00 02 94 47 |........|.......G|
|000010c0| 00 02 cc 17 00 03 27 11 | 00 03 ba 98 00 03 e9 54 |......'.|.......T|
|000010d0| 00 04 18 2f 00 04 47 11 | 00 04 77 2d 00 04 a6 05 |.../..G.|..w-....|
|000010e0| 00 04 d5 58 00 05 03 f5 | 00 05 32 6b 00 05 61 d6 |...X....|..2k..a.|
|000010f0| 00 05 90 88 00 05 bf 60 | 00 02 99 c3 00 02 b1 7b |.......`|.......{|
|00001100| 00 05 e3 e8 00 06 00 f2 | 00 06 2f b3 00 06 42 a3 |........|../...B.|
|00001110| 00 02 b6 87 00 02 ca 79 | 00 06 5c 7f 00 06 d3 c4 |.......y|..\.....|
|00001120| 00 06 db 81 00 06 ef 9a | 00 00 90 6b 00 00 94 0c |........|...k....|
|00001130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001280| 00 00 00 80 4c 49 53 54 | 00 00 2a 6b 00 00 00 01 |....LIST|..*k....|
|00001290| 00 00 08 00 00 00 00 14 | 00 34 00 02 00 0c 00 03 |........|.4......|
|000012a0| 80 00 05 75 00 00 00 14 | 00 00 00 00 00 00 00 00 |...u....|........|
|000012b0| 00 00 2b 0c 00 14 00 00 | 00 00 00 00 00 00 00 00 |..+.....|........|
|000012c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001300| 00 00 08 00 50 41 47 45 | 00 00 2b 0c 00 00 2a 6b |....PAGE|..+...*k|
|00001310| 7c 3c 13 c3 00 00 00 00 | 00 00 10 17 e0 7f ff 3f ||<......|.......?|
|00001320| cb b7 ef ce de fc 6f f7 | ee 35 ff 7f f3 ef ef b7 |......o.|.5......|
|00001330| 9f fc 1a ec eb ff ba ff | fe fa 7f 79 fa df 9b 3c |........|...y...<|
|00001340| 9b ff bb f2 ef 59 b9 ad | e4 df ae f8 00 00 0a 99 |.....Y..|........|
|00001350| a0 05 04 2c 02 a0 03 08 | 88 c0 24 80 06 10 32 70 |...,....|..$...2p|
|00001360| 02 e0 e2 34 00 00 00 00 | 0a 00 0c 00 20 0a 30 03 |...4....|.... .0.|
|00001370| 48 80 08 2c 98 00 0f e2 | 88 00 01 a3 80 d2 a2 08 |H..,....|........|
|00001380| 00 00 0b 56 a0 01 04 2c | 02 a0 03 40 88 c1 24 40 |...V...,|...@..$@|
|00001390| 06 10 32 70 02 e0 e2 34 | 00 04 40 00 0a 02 08 00 |..2p...4|..@.....|
|000013a0| 00 0a 20 03 48 80 08 2c | 98 00 28 ea 88 00 00 23 |.. .H..,|..(....#|
|000013b0| 80 d2 a2 08 00 00 0c 8d | a0 05 04 2c 02 a0 03 40 |........|...,...@|
|000013c0| 88 c1 24 c0 06 10 32 70 | 02 e0 e2 34 00 00 00 00 |..$...2p|...4....|
|000013d0| 0a 00 08 00 00 0a 30 03 | 48 80 08 25 98 00 0a e2 |......0.|H..%....|
|000013e0| 88 00 00 23 80 d8 a2 08 | 00 00 12 98 a0 01 00 2c |...#....|.......,|
|000013f0| 02 a0 03 40 88 c1 2c 40 | 06 18 32 72 02 e0 e2 34 |...@..,@|..2r...4|
|00001400| 00 01 00 04 0a 00 08 00 | 00 0a 28 07 48 80 08 2c |........|..(.H..,|
|00001410| 98 00 08 ea 88 00 00 23 | 80 d2 a2 08 00 00 13 54 |.......#|.......T|
|00001420| a0 05 00 2c 02 a0 03 00 | 8c c0 24 00 06 10 32 d0 |...,....|..$...2.|
|00001430| 02 e8 e2 34 00 00 00 00 | 0a 00 08 00 20 0a 20 03 |...4....|.... . .|
|00001440| 48 80 08 34 88 04 0f e2 | 88 00 01 a3 80 f8 a2 08 |H..4....|........|
|00001450| 00 00 14 2f a0 05 04 2c | 02 a0 03 00 8c c0 24 80 |.../...,|......$.|
|00001460| 06 10 32 f0 02 e8 e2 34 | 00 00 00 00 0a 00 08 00 |..2....4|........|
|00001470| 00 0a 30 03 48 80 08 2c | 98 04 08 e2 88 00 00 23 |..0.H..,|.......#|
|00001480| 80 f2 a2 08 00 00 15 11 | a0 01 00 2c 02 a0 03 00 |........|...,....|
|00001490| 8a c0 2c 00 06 18 32 52 | 02 e0 e2 34 00 21 00 20 |..,...2R|...4.!. |
|000014a0| 0e 00 08 00 00 1a 28 07 | 48 80 08 24 98 00 08 ea |......(.|H..$....|
|000014b0| 88 00 00 23 80 d2 aa 08 | 00 00 16 2d a0 05 04 2c |...#....|...-...,|
|000014c0| 02 a0 83 00 88 c0 24 90 | 06 10 32 70 02 e0 e2 34 |......$.|..2p...4|
|000014d0| 00 04 00 02 0a 02 08 00 | 00 0a 30 03 48 80 08 2c |........|..0.H..,|
|000014e0| 98 00 28 e2 88 00 00 21 | 80 d2 a2 08 00 00 17 05 |..(....!|........|
|000014f0| a0 01 04 2c 02 a0 83 00 | 88 c0 24 10 06 10 32 70 |...,....|..$...2p|
|00001500| 02 e0 e2 34 00 04 00 12 | 0a 02 08 00 00 0a 20 03 |...4....|...... .|
|00001510| 48 80 08 2c 88 00 28 ea | 88 00 00 21 80 d2 a2 08 |H..,..(.|...!....|
|00001520| 00 00 18 58 a0 01 00 2c | 02 a0 83 40 8a c1 24 50 |...X...,|...@..$P|
|00001530| 06 10 32 72 02 e0 e2 34 | 00 00 00 02 0a 00 08 00 |..2r...4|........|
|00001540| 00 0a 20 03 48 80 08 2c | 98 00 08 e2 88 00 00 21 |.. .H..,|.......!|
|00001550| 80 d2 a2 08 00 00 19 f5 | a0 05 04 28 02 a0 83 00 |........|...(....|
|00001560| 8b c0 2c 90 06 18 32 72 | 02 e0 e2 34 00 01 00 02 |..,...2r|...4....|
|00001570| 0a 00 08 00 00 0a 38 07 | 48 80 08 2c 98 00 08 ea |......8.|H..,....|
|00001580| 88 00 00 21 80 d2 a2 08 | 00 00 1a 6b a0 05 00 2c |...!....|...k...,|
|00001590| 02 a0 83 40 88 c1 24 50 | 06 10 32 50 02 e0 e2 34 |...@..$P|..2P...4|
|000015a0| 00 00 00 02 0a 00 08 00 | 20 0a 20 03 48 a0 08 24 |........| . .H..$|
|000015b0| 98 00 0f e2 88 00 01 a1 | 80 d8 a2 08 00 00 1b d6 |........|........|
|000015c0| a0 01 00 28 02 a0 83 00 | 8c c0 2c 10 06 18 32 d2 |...(....|..,...2.|
|000015d0| 02 e8 e2 34 00 01 00 22 | 0a 00 08 00 00 0a 28 07 |...4..."|......(.|
|000015e0| 48 80 08 24 98 04 08 ea | 88 00 00 21 80 f0 a2 08 |H..$....|...!....|
|000015f0| 00 00 1c 88 a0 05 00 28 | 02 a0 83 00 88 c0 24 10 |.......(|......$.|
|00001600| 06 10 32 50 02 e0 e2 34 | 00 20 00 02 0e 00 08 00 |..2P...4|. ......|
|00001610| 00 1a 20 03 48 80 08 2c | 88 00 0a e2 88 00 00 21 |.. .H..,|.......!|
|00001620| 80 d8 aa 08 00 00 1d 60 | 60 7e 8f 9f 0e 67 bd ac |.......`|`~...g..|
|00001630| de e2 79 f7 d4 fd 3f bb | f3 17 53 81 7f 8c 0e 1e |..y...?.|..S.....|
|00001640| 02 3b eb 74 f7 f9 0d 32 | b0 d8 96 88 bd ff e5 30 |.;.t...2|.......0|
|00001650| 6f 43 f7 d7 66 09 46 a4 | 00 00 21 f2 20 5e 4f d0 |oC..f.F.|..!. ^O.|
|00001660| 8b ce e2 c8 da fa 3a 7f | fe 6e fc d3 ff 5b 4d c6 |......:.|.n...[M.|
|00001670| ff e8 56 0f 87 99 f7 fc | be ed 5f 39 b6 81 5f ac |..V.....|.._9.._.|
|00001680| 9c cf e0 f7 0f 71 d7 7f | e6 0f 46 d4 00 00 23 a3 |.....q..|..F...#.|
|00001690| 60 55 2f d0 df a7 86 e9 | ca b8 7f 43 e8 69 bd 07 |`U/.....|...C.i..|
|000016a0| b3 cf ef a9 9d be be 6c | d5 cd e1 c5 b9 fe b5 76 |.......l|.......v|
|000016b0| d0 9f c1 c4 9e a5 03 ba | 9e 40 98 75 d0 2f 0c 80 |........|.@.u./..|
|000016c0| 00 00 26 7f a0 4f 7f 6f | bf f6 d7 d1 ef f8 ff fb |..&..O.o|........|
|000016d0| fe 75 ee f7 f0 e3 eb 95 | 5d ee f6 fe f6 e8 fd ed |.u......|].......|
|000016e0| 0a df 57 f2 ee d5 c1 be | f4 bd b2 ff cf 49 fb fd |..W.....|.....I..|
|000016f0| e7 1a db fc 00 00 28 81 | a0 43 4b 83 9e a1 07 7c |......(.|.CK....||
|00001700| 6b 70 67 d8 64 24 7e 07 | c0 40 e3 19 72 f2 1b 60 |kpg.d$~.|.@..r..`|
|00001710| 44 cc 2a f6 d4 8a 43 a2 | 00 f4 48 92 3e fd c0 92 |D.*...C.|..H.>...|
|00001720| 6f 10 32 48 23 36 9b 34 | 00 00 00 00 00 00 00 00 |o.2H#6.4|........|
|00001730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b00| 00 00 38 00 42 4b 47 44 | 00 00 0e b3 00 00 0f 47 |..8.BKGD|.......G|
|00001b10| 00 00 00 00 00 00 00 0f | 00 00 1e c3 00 00 24 87 |........|......$.|
|00001b20| 00 24 00 34 00 00 15 e8 | 00 00 00 00 00 00 00 2e |.$.4....|........|
|00001b30| 00 03 02 01 00 0f 00 e4 | 00 2d 01 38 00 00 00 00 |........|.-.8....|
|00001b40| 00 00 00 01 00 14 00 18 | 51 00 00 20 43 61 6c 65 |........|Q.. Cale|
|00001b50| 6e 64 61 72 20 59 65 61 | 72 00 00 00 00 28 00 01 |ndar Yea|r....(..|
|00001b60| 02 01 00 2e 00 3a 00 42 | 00 95 00 00 00 00 00 00 |.....:.B|........|
|00001b70| 00 01 00 14 00 0e 00 00 | 00 12 4d 6f 6e 74 68 20 |........|..Month |
|00001b80| 31 00 00 00 00 28 00 02 | 02 01 00 41 00 30 00 91 |1....(..|...A.0..|
|00001b90| 00 a0 00 00 00 00 00 00 | 00 00 00 16 00 0a 20 00 |........|...... .|
|00001ba0| 00 0d 4a 61 6e 75 61 72 | 79 00 00 00 00 2a 00 04 |..Januar|y....*..|
|00001bb0| 02 01 00 41 00 a3 00 84 | 01 13 00 00 00 00 00 00 |...A....|........|
|00001bc0| 00 00 00 16 00 0a 20 00 | 00 0d 46 65 62 72 75 61 |...... .|..Februa|
|00001bd0| 72 79 00 00 00 00 00 26 | 00 05 02 01 00 41 01 16 |ry.....&|.....A..|
|00001be0| 00 91 01 86 00 00 00 00 | 00 00 00 00 00 16 00 0a |........|........|
|00001bf0| 20 00 00 0d 4d 61 72 63 | 68 00 00 00 00 26 00 06 | ...Marc|h....&..|
|00001c00| 02 01 00 41 01 89 00 91 | 01 f9 00 00 00 00 00 00 |...A....|........|
|00001c10| 00 00 00 16 00 0a 20 00 | 00 0d 41 70 72 69 6c 00 |...... .|..April.|
|00001c20| 00 00 00 28 00 0b 02 01 | 00 90 00 3b 00 a4 00 96 |...(....|...;....|
|00001c30| 00 00 00 00 00 00 00 01 | 00 14 00 0e 00 00 00 12 |........|........|
|00001c40| 4d 6f 6e 74 68 20 35 00 | 00 00 00 28 00 0f 02 01 |Month 5.|...(....|
|00001c50| 00 2e 00 ae 00 42 01 09 | 00 00 00 00 00 00 00 01 |.....B..|........|
|00001c60| 00 14 00 0e 00 00 00 12 | 4d 6f 6e 74 68 20 32 00 |........|Month 2.|
|00001c70| 00 00 00 24 00 0c 02 01 | 00 a3 00 30 00 f3 00 a0 |...$....|...0....|
|00001c80| 00 00 00 00 00 00 00 00 | 00 16 00 0a 20 00 00 0d |........|.... ...|
|00001c90| 4d 61 79 00 00 00 00 28 | 00 0d 02 01 00 f2 00 3b |May....(|.......;|
|00001ca0| 01 06 00 96 00 00 00 00 | 00 00 00 01 00 14 00 0e |........|........|
|00001cb0| 00 00 00 12 4d 6f 6e 74 | 68 20 39 00 00 00 00 2a |....Mont|h 9....*|
|00001cc0| 00 0e 02 01 01 05 00 30 | 01 55 00 a0 00 00 00 00 |.......0|.U......|
|00001cd0| 00 00 00 00 00 16 00 0a | 20 00 00 0d 53 65 70 74 |........| ...Sept|
|00001ce0| 65 6d 62 65 72 00 00 00 | 00 28 00 10 02 01 00 2e |ember...|.(......|
|00001cf0| 01 21 00 42 01 7c 00 00 | 00 00 00 00 00 01 00 14 |.!.B.|..|........|
|00001d00| 00 0e 00 00 00 12 4d 6f | 6e 74 68 20 33 00 00 00 |......Mo|nth 3...|
|00001d10| 00 28 00 11 02 01 00 2e | 01 94 00 42 01 ef 00 00 |.(......|...B....|
|00001d20| 00 00 00 00 00 01 00 14 | 00 0e 00 00 00 12 4d 6f |........|......Mo|
|00001d30| 6e 74 68 20 34 00 00 00 | 00 28 00 12 02 01 00 90 |nth 4...|.(......|
|00001d40| 00 ae 00 a4 01 09 00 00 | 00 00 00 00 00 01 00 14 |........|........|
|00001d50| 00 0e 00 00 00 12 4d 6f | 6e 74 68 20 36 00 00 00 |......Mo|nth 6...|
|00001d60| 00 28 00 13 02 01 00 90 | 01 21 00 a4 01 7c 00 00 |.(......|.!...|..|
|00001d70| 00 00 00 00 00 01 00 14 | 00 0e 00 00 00 12 4d 6f |........|......Mo|
|00001d80| 6e 74 68 20 37 00 00 00 | 00 28 00 14 02 01 00 90 |nth 7...|.(......|
|00001d90| 01 94 00 a4 01 ef 00 00 | 00 00 00 00 00 01 00 14 |........|........|
|00001da0| 00 0e 00 00 00 12 4d 6f | 6e 74 68 20 38 00 00 00 |......Mo|nth 8...|
|00001db0| 00 26 00 15 02 01 00 a3 | 00 a3 00 f3 01 13 00 00 |.&......|........|
|00001dc0| 00 00 00 00 00 00 00 16 | 00 0a 20 00 00 0d 4a 75 |........|.. ...Ju|
|00001dd0| 6e 65 00 00 00 00 00 26 | 00 16 02 01 00 a3 01 16 |ne.....&|........|
|00001de0| 00 f3 01 86 00 00 00 00 | 00 00 00 00 00 16 00 0a |........|........|
|00001df0| 20 00 00 0d 4a 75 6c 79 | 00 00 00 00 00 28 00 17 | ...July|.....(..|
|00001e00| 02 01 00 a3 01 89 00 f3 | 01 f9 00 00 00 00 00 00 |........|........|
|00001e10| 00 00 00 16 00 0a 20 00 | 00 0d 41 75 67 75 73 74 |...... .|..August|
|00001e20| 00 00 00 00 00 2a 00 18 | 02 01 00 f2 00 ae 01 06 |.....*..|........|
|00001e30| 01 09 00 00 00 00 00 00 | 00 01 00 14 00 0e 00 00 |........|........|
|00001e40| 00 12 4d 6f 6e 74 68 20 | 31 30 00 00 00 00 00 2a |..Month |10.....*|
|00001e50| 00 19 02 01 00 f2 01 21 | 01 06 01 7c 00 00 00 00 |.......!|...|....|
|00001e60| 00 00 00 01 00 14 00 0e | 00 00 00 12 4d 6f 6e 74 |........|....Mont|
|00001e70| 68 20 31 31 00 00 00 00 | 00 2a 00 1a 02 01 00 f2 |h 11....|.*......|
|00001e80| 01 94 01 06 01 ef 00 00 | 00 00 00 00 00 01 00 14 |........|........|
|00001e90| 00 0e 00 00 00 12 4d 6f | 6e 74 68 20 31 32 00 00 |......Mo|nth 12..|
|00001ea0| 00 00 00 2a 00 1b 02 01 | 01 05 01 89 01 55 01 f9 |...*....|.....U..|
|00001eb0| 00 00 00 00 00 00 00 00 | 00 16 00 0a 20 00 00 0d |........|.... ...|
|00001ec0| 44 65 63 65 6d 62 65 72 | 00 00 00 00 00 2a 00 1c |December|.....*..|
|00001ed0| 02 01 01 05 01 16 01 55 | 01 86 00 00 00 00 00 00 |.......U|........|
|00001ee0| 00 00 00 16 00 0a 20 00 | 00 0d 4e 6f 76 65 6d 62 |...... .|..Novemb|
|00001ef0| 65 72 00 00 00 00 00 28 | 00 1d 02 01 01 05 00 a3 |er.....(|........|
|00001f00| 01 55 01 13 00 00 00 00 | 00 00 00 00 00 16 00 0a |.U......|........|
|00001f10| 20 00 00 0d 4f 63 74 6f | 62 65 72 00 00 00 00 2a | ...Octo|ber....*|
|00001f20| 00 1e 02 80 00 15 00 06 | 00 27 00 85 00 00 00 00 |........|.'......|
|00001f30| 00 00 00 00 00 03 00 0c | 00 00 00 10 59 65 61 72 |........|....Year|
|00001f40| 20 54 79 70 65 00 00 00 | 03 8a 00 1f 01 00 00 14 | Type...|........|
|00001f50| 00 47 00 2c 00 5f 20 00 | 00 00 03 f6 00 01 00 00 |.G.,._ .|........|
|00001f60| 00 0c 00 00 00 10 50 72 | 65 76 20 59 65 61 72 00 |......Pr|ev Year.|
|00001f70| 00 6f 6e 20 6d 6f 75 73 | 65 55 70 0d 2d 2d 67 6f |.on mous|eUp.--go|
|00001f80| 20 62 61 63 6b 77 61 72 | 64 73 20 74 6f 20 74 68 | backwar|ds to th|
|00001f90| 65 20 70 72 65 63 65 65 | 64 69 6e 67 20 79 65 61 |e precee|ding yea|
|00001fa0| 72 0d 0d 2d 2d 6e 6f 74 | 68 69 6e 67 20 69 6e 20 |r..--not|hing in |
|00001fb0| 74 68 65 20 63 61 6c 65 | 6e 64 61 72 20 66 69 65 |the cale|ndar fie|
|00001fc0| 6c 64 3f 20 28 69 2e 65 | 2e 2c 20 61 72 65 20 77 |ld? (i.e|., are w|
|00001fd0| 65 20 61 74 20 74 68 65 | 20 66 69 72 73 74 20 63 |e at the| first c|
|00001fe0| 61 72 64 3f 29 0d 69 66 | 20 66 69 65 6c 64 20 22 |ard?).if| field "|
|00001ff0| 43 61 6c 65 6e 64 61 72 | 20 59 65 61 72 22 20 3d |Calendar| Year" =|
|00002000| 20 22 22 0d 74 68 65 6e | 0d 2d 2d 61 6e 79 74 68 | "".then|.--anyth|
|00002010| 69 6e 67 20 69 6e 20 74 | 68 65 20 22 53 65 6c 65 |ing in t|he "Sele|
|00002020| 63 74 65 64 20 44 61 74 | 65 22 20 66 69 65 6c 64 |cted Dat|e" field|
|00002030| 3f 0d 69 66 20 66 69 65 | 6c 64 20 22 53 65 6c 65 |?.if fie|ld "Sele|
|00002040| 63 74 65 64 20 44 61 74 | 65 22 20 69 73 20 6e 6f |cted Dat|e" is no|
|00002050| 74 20 65 6d 70 74 79 0d | 74 68 65 6e 0d 70 75 74 |t empty.|then.put|
|00002060| 20 66 69 65 6c 64 20 22 | 53 65 6c 65 63 74 65 64 | field "|Selected|
|00002070| 20 44 61 74 65 22 20 69 | 6e 74 6f 20 66 53 65 6c | Date" i|nto fSel|
|00002080| 65 63 74 65 64 44 61 74 | 65 0d 70 75 74 20 77 6f |ectedDat|e.put wo|
|00002090| 72 64 20 31 20 6f 66 20 | 69 74 65 6d 20 33 20 6f |rd 1 of |item 3 o|
|000020a0| 66 20 66 53 65 6c 65 63 | 74 65 64 44 61 74 65 20 |f fSelec|tedDate |
|000020b0| 69 6e 74 6f 20 66 44 69 | 73 70 6c 61 79 59 65 61 |into fDi|splayYea|
|000020c0| 72 0d 65 6c 73 65 0d 2d | 2d 69 66 20 61 6c 6c 20 |r.else.-|-if all |
|000020d0| 65 6c 73 65 20 66 61 69 | 6c 73 2c 20 75 73 65 20 |else fai|ls, use |
|000020e0| 74 6f 64 61 79 27 73 20 | 64 61 74 65 0d 67 65 74 |today's |date.get|
|000020f0| 20 74 68 65 20 6c 6f 6e | 67 20 64 61 74 65 0d 70 | the lon|g date.p|
|00002100| 75 74 20 77 6f 72 64 20 | 31 20 6f 66 20 69 74 65 |ut word |1 of ite|
|00002110| 6d 20 33 20 6f 66 20 69 | 74 20 69 6e 74 6f 20 66 |m 3 of i|t into f|
|00002120| 44 69 73 70 6c 61 79 59 | 65 61 72 0d 65 6e 64 20 |DisplayY|ear.end |
|00002130| 69 66 0d 65 6c 73 65 0d | 2d 2d 6f 74 68 65 72 77 |if.else.|--otherw|
|00002140| 69 73 65 2c 20 75 73 65 | 20 74 68 65 20 63 75 72 |ise, use| the cur|
|00002150| 72 65 6e 74 20 79 65 61 | 72 20 64 69 73 70 6c 61 |rent yea|r displa|
|00002160| 79 65 64 0d 70 75 74 20 | 66 69 65 6c 64 20 22 43 |yed.put |field "C|
|00002170| 61 6c 65 6e 64 61 72 20 | 59 65 61 72 22 20 69 6e |alendar |Year" in|
|00002180| 74 6f 20 66 44 69 73 70 | 6c 61 79 59 65 61 72 0d |to fDisp|layYear.|
|00002190| 65 6e 64 20 69 66 0d 0d | 73 75 62 74 72 61 63 74 |end if..|subtract|
|000021a0| 20 31 20 66 72 6f 6d 20 | 66 44 69 73 70 6c 61 79 | 1 from |fDisplay|
|000021b0| 59 65 61 72 20 2d 2d 70 | 72 65 76 69 6f 75 73 20 |Year --p|revious |
|000021c0| 79 65 61 72 0d 0d 69 66 | 20 66 44 69 73 70 6c 61 |year..if| fDispla|
|000021d0| 79 59 65 61 72 20 3c 20 | 31 39 30 34 20 2d 2d 61 |yYear < |1904 --a|
|000021e0| 72 65 20 77 65 20 6f 75 | 74 73 69 64 65 20 6f 66 |re we ou|tside of|
|000021f0| 20 48 79 70 65 72 43 61 | 72 64 27 73 20 72 61 6e | HyperCa|rd's ran|
|00002200| 67 65 3f 0d 74 68 65 6e | 0d 62 65 65 70 20 2d 2d |ge?.then|.beep --|
|00002210| 6f 6f 70 73 21 0d 65 78 | 69 74 20 6d 6f 75 73 65 |oops!.ex|it mouse|
|00002220| 55 70 20 2d 2d 77 65 27 | 72 65 20 6f 75 74 74 61 |Up --we'|re outta|
|00002230| 20 68 65 72 65 21 0d 65 | 6e 64 20 69 66 0d 0d 76 | here!.e|nd if..v|
|00002240| 69 73 75 61 6c 20 73 63 | 72 6f 6c 6c 20 72 69 67 |isual sc|roll rig|
|00002250| 68 74 20 74 6f 20 67 72 | 61 79 0d 76 69 73 75 61 |ht to gr|ay.visua|
|00002260| 6c 20 73 63 72 6f 6c 6c | 20 72 69 67 68 74 0d 0d |l scroll| right..|
|00002270| 2d 2d 66 69 6e 64 20 74 | 68 65 20 72 69 67 68 74 |--find t|he right|
|00002280| 20 74 65 6d 70 6c 61 74 | 65 20 66 6f 72 20 6e 65 | templat|e for ne|
|00002290| 78 74 20 79 65 61 72 20 | 61 6e 64 20 67 6f 20 74 |xt year |and go t|
|000022a0| 68 65 72 65 0d 46 69 6e | 64 59 65 61 72 54 65 6d |here.Fin|dYearTem|
|000022b0| 70 6c 61 74 65 20 66 44 | 69 73 70 6c 61 79 59 65 |plate fD|isplayYe|
|000022c0| 61 72 0d 0d 65 6e 64 20 | 6d 6f 75 73 65 55 70 0d |ar..end |mouseUp.|
|000022d0| 00 00 03 8a 00 20 01 00 | 00 14 00 5f 00 2c 00 77 |..... ..|..._.,.w|
|000022e0| 20 00 00 00 03 f5 00 01 | 00 00 00 0c 00 00 00 10 | .......|........|
|000022f0| 4e 65 78 74 20 59 65 61 | 72 00 00 6f 6e 20 6d 6f |Next Yea|r..on mo|
|00002300| 75 73 65 55 70 0d 2d 2d | 67 6f 20 6f 6e 20 74 6f |useUp.--|go on to|
|00002310| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 79 | the fol|lowing y|
|00002320| 65 61 72 0d 0d 67 6c 6f | 62 61 6c 20 66 53 65 6c |ear..glo|bal fSel|
|00002330| 65 63 74 65 64 44 61 74 | 65 0d 0d 2d 2d 6e 6f 74 |ectedDat|e..--not|
|00002340| 68 69 6e 67 20 69 6e 20 | 74 68 65 20 63 61 6c 65 |hing in |the cale|
|00002350| 6e 64 61 72 20 66 69 65 | 6c 64 3f 20 28 69 2e 65 |ndar fie|ld? (i.e|
|00002360| 2e 2c 20 61 72 65 20 77 | 65 20 61 74 20 74 68 65 |., are w|e at the|
|00002370| 20 66 69 72 73 74 20 63 | 61 72 64 3f 29 0d 69 66 | first c|ard?).if|
|00002380| 20 66 69 65 6c 64 20 22 | 43 61 6c 65 6e 64 61 72 | field "|Calendar|
|00002390| 20 59 65 61 72 22 20 3d | 20 22 22 0d 74 68 65 6e | Year" =| "".then|
|000023a0| 0d 2d 2d 61 6e 79 74 68 | 69 6e 67 20 69 6e 20 74 |.--anyth|ing in t|
|000023b0| 68 65 20 22 53 65 6c 65 | 63 74 65 64 20 44 61 74 |he "Sele|cted Dat|
|000023c0| 65 22 20 66 69 65 6c 64 | 3f 0d 69 66 20 66 69 65 |e" field|?.if fie|
|000023d0| 6c 64 20 22 53 65 6c 65 | 63 74 65 64 20 44 61 74 |ld "Sele|cted Dat|
|000023e0| 65 22 20 69 73 20 6e 6f | 74 20 65 6d 70 74 79 0d |e" is no|t empty.|
|000023f0| 74 68 65 6e 0d 70 75 74 | 20 66 69 65 6c 64 20 22 |then.put| field "|
|00002400| 53 65 6c 65 63 74 65 64 | 20 44 61 74 65 22 20 69 |Selected| Date" i|
|00002410| 6e 74 6f 20 66 53 65 6c | 65 63 74 65 64 44 61 74 |nto fSel|ectedDat|
|00002420| 65 0d 70 75 74 20 77 6f | 72 64 20 31 20 6f 66 20 |e.put wo|rd 1 of |
|00002430| 69 74 65 6d 20 33 20 6f | 66 20 66 53 65 6c 65 63 |item 3 o|f fSelec|
|00002440| 74 65 64 44 61 74 65 20 | 69 6e 74 6f 20 66 44 69 |tedDate |into fDi|
|00002450| 73 70 6c 61 79 59 65 61 | 72 0d 65 6c 73 65 0d 2d |splayYea|r.else.-|
|00002460| 2d 69 66 20 61 6c 6c 20 | 65 6c 73 65 20 66 61 69 |-if all |else fai|
|00002470| 6c 73 2c 20 75 73 65 20 | 74 6f 64 61 79 27 73 20 |ls, use |today's |
|00002480| 64 61 74 65 0d 67 65 74 | 20 74 68 65 20 6c 6f 6e |date.get| the lon|
|00002490| 67 20 64 61 74 65 0d 70 | 75 74 20 77 6f 72 64 20 |g date.p|ut word |
|000024a0| 31 20 6f 66 20 69 74 65 | 6d 20 33 20 6f 66 20 69 |1 of ite|m 3 of i|
|000024b0| 74 20 69 6e 74 6f 20 66 | 44 69 73 70 6c 61 79 59 |t into f|DisplayY|
|000024c0| 65 61 72 0d 65 6e 64 20 | 69 66 0d 65 6c 73 65 0d |ear.end |if.else.|
|000024d0| 2d 2d 6f 74 68 65 72 77 | 69 73 65 2c 20 75 73 65 |--otherw|ise, use|
|000024e0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 79 65 61 | the cur|rent yea|
|000024f0| 72 20 64 69 73 70 6c 61 | 79 65 64 0d 70 75 74 20 |r displa|yed.put |
|00002500| 66 69 65 6c 64 20 22 43 | 61 6c 65 6e 64 61 72 20 |field "C|alendar |
|00002510| 59 65 61 72 22 20 69 6e | 74 6f 20 66 44 69 73 70 |Year" in|to fDisp|
|00002520| 6c 61 79 59 65 61 72 0d | 65 6e 64 20 69 66 0d 0d |layYear.|end if..|
|00002530| 61 64 64 20 31 20 74 6f | 20 66 44 69 73 70 6c 61 |add 1 to| fDispla|
|00002540| 79 59 65 61 72 20 2d 2d | 6e 65 78 74 20 79 65 61 |yYear --|next yea|
|00002550| 72 0d 0d 69 66 20 66 44 | 69 73 70 6c 61 79 59 65 |r..if fD|isplayYe|
|00002560| 61 72 20 3e 20 32 30 33 | 39 20 2d 2d 61 72 65 20 |ar > 203|9 --are |
|00002570| 77 65 20 6f 75 74 73 69 | 64 65 20 6f 66 20 48 79 |we outsi|de of Hy|
|00002580| 70 65 72 43 61 72 64 27 | 73 20 72 61 6e 67 65 3f |perCard'|s range?|
|00002590| 0d 74 68 65 6e 0d 62 65 | 65 70 20 2d 2d 6f 6f 70 |.then.be|ep --oop|
|000025a0| 73 21 0d 65 78 69 74 20 | 6d 6f 75 73 65 55 70 20 |s!.exit |mouseUp |
|000025b0| 2d 2d 77 65 27 72 65 20 | 6f 75 74 74 61 20 68 65 |--we're |outta he|
|000025c0| 72 65 21 0d 65 6e 64 20 | 69 66 0d 0d 76 69 73 75 |re!.end |if..visu|
|000025d0| 61 6c 20 73 63 72 6f 6c | 6c 20 6c 65 66 74 20 74 |al scrol|l left t|
|000025e0| 6f 20 67 72 61 79 0d 76 | 69 73 75 61 6c 20 73 63 |o gray.v|isual sc|
|000025f0| 72 6f 6c 6c 20 6c 65 66 | 74 0d 0d 2d 2d 66 69 6e |roll lef|t..--fin|
|00002600| 64 20 74 68 65 20 72 69 | 67 68 74 20 74 65 6d 70 |d the ri|ght temp|
|00002610| 6c 61 74 65 20 66 6f 72 | 20 6e 65 78 74 20 79 65 |late for| next ye|
|00002620| 61 72 20 61 6e 64 20 67 | 6f 20 74 68 65 72 65 0d |ar and g|o there.|
|00002630| 46 69 6e 64 59 65 61 72 | 54 65 6d 70 6c 61 74 65 |FindYear|Template|
|00002640| 20 66 44 69 73 70 6c 61 | 79 59 65 61 72 0d 0d 65 | fDispla|yYear..e|
|00002650| 6e 64 20 6d 6f 75 73 65 | 55 70 0d 00 03 06 00 21 |nd mouse|Up.....!|
|00002660| 01 00 00 17 00 a2 00 2a | 00 df a0 04 00 00 00 00 |.......*|........|
|00002670| 00 01 00 14 00 0c 00 00 | 00 10 50 69 63 6b 20 61 |........|..Pick a|
|00002680| 20 59 65 61 72 00 00 6f | 6e 20 6d 6f 75 73 65 55 | Year..o|n mouseU|
|00002690| 70 0d 2d 2d 6c 65 74 20 | 75 73 65 72 20 73 65 6c |p.--let |user sel|
|000026a0| 65 63 74 20 61 6e 79 20 | 63 61 6c 65 6e 64 61 72 |ect any |calendar|
|000026b0| 20 79 65 61 72 20 77 69 | 74 68 69 6e 20 74 68 65 | year wi|thin the|
|000026c0| 20 61 6c 6c 6f 77 61 62 | 6c 65 20 64 61 74 65 20 | allowab|le date |
|000026d0| 72 61 6e 67 65 0d 0d 67 | 6c 6f 62 61 6c 20 66 53 |range..g|lobal fS|
|000026e0| 65 6c 65 63 74 65 64 44 | 61 74 65 0d 0d 61 73 6b |electedD|ate..ask|
|000026f0| 20 22 45 6e 74 65 72 20 | 61 6e 79 20 79 65 61 72 | "Enter |any year|
|00002700| 20 61 66 74 65 72 20 31 | 39 30 33 20 61 6e 64 20 | after 1|903 and |
|00002710| 62 65 66 6f 72 65 20 32 | 30 34 30 2e 22 20 c2 0d |before 2|040." ..|
|00002720| 77 69 74 68 20 77 6f 72 | 64 20 31 20 6f 66 20 69 |with wor|d 1 of i|
|00002730| 74 65 6d 20 33 20 6f 66 | 20 74 68 65 20 6c 6f 6e |tem 3 of| the lon|
|00002740| 67 20 64 61 74 65 20 2d | 2d 64 65 66 61 75 6c 74 |g date -|-default|
|00002750| 20 69 73 20 22 74 6f 64 | 61 79 27 73 20 79 65 61 | is "tod|ay's yea|
|00002760| 72 22 0d 0d 69 66 20 69 | 74 20 69 73 20 6e 6f 74 |r"..if i|t is not|
|00002770| 20 22 22 20 2d 2d 69 66 | 20 74 68 65 20 75 73 65 | "" --if| the use|
|00002780| 72 20 68 61 73 6e 27 74 | 20 63 61 6e 63 65 6c 6c |r hasn't| cancell|
|00002790| 65 64 20 6f 75 74 2e 2e | 2e 0d 74 68 65 6e 0d 69 |ed out..|..then.i|
|000027a0| 66 20 69 74 20 3c 20 31 | 39 30 34 20 6f 72 20 69 |f it < 1|904 or i|
|000027b0| 74 20 3e 20 32 30 33 39 | 20 2d 2d 61 72 65 20 77 |t > 2039| --are w|
|000027c0| 65 20 6f 75 74 73 69 64 | 65 20 74 68 65 20 61 6c |e outsid|e the al|
|000027d0| 6c 6f 77 61 62 6c 65 20 | 64 61 74 65 20 72 61 6e |lowable |date ran|
|000027e0| 67 65 3f 0d 74 68 65 6e | 0d 62 65 65 70 20 2d 2d |ge?.then|.beep --|
|000027f0| 6f 6f 70 73 21 20 20 68 | 75 72 72 79 20 75 70 20 |oops!  h|urry up |
|00002800| 61 6e 64 20 64 6f 20 6e | 6f 74 68 69 6e 67 0d 65 |and do n|othing.e|
|00002810| 6c 73 65 0d 2d 2d 64 69 | 64 20 74 68 65 20 75 73 |lse.--di|d the us|
|00002820| 65 72 20 61 63 63 69 64 | 65 6e 74 61 6c 6c 79 20 |er accid|entally |
|00002830| 63 68 6f 6f 73 65 20 74 | 68 65 20 79 65 61 72 20 |choose t|he year |
|00002840| 61 6c 72 65 61 64 79 20 | 64 69 73 70 6c 61 79 65 |already |displaye|
|00002850| 64 3f 0d 69 66 20 6e 6f | 74 20 28 69 74 20 69 73 |d?.if no|t (it is|
|00002860| 20 66 69 65 6c 64 20 22 | 43 61 6c 65 6e 64 61 72 | field "|Calendar|
|00002870| 20 59 65 61 72 22 29 0d | 74 68 65 6e 0d 2d 2d 69 | Year").|then.--i|
|00002880| 66 20 6e 6f 74 2c 20 67 | 6f 20 74 6f 20 74 68 65 |f not, g|o to the|
|00002890| 20 73 70 65 63 69 66 69 | 65 64 20 79 65 61 72 0d | specifi|ed year.|
|000028a0| 70 75 74 20 69 74 20 69 | 6e 74 6f 20 66 44 69 73 |put it i|nto fDis|
|000028b0| 70 6c 61 79 59 65 61 72 | 0d 76 69 73 75 61 6c 20 |playYear|.visual |
|000028c0| 64 69 73 73 6f 6c 76 65 | 20 74 6f 20 67 72 61 79 |dissolve| to gray|
|000028d0| 20 2d 2d 6d 61 6b 65 20 | 69 74 20 63 6c 65 61 72 | --make |it clear|
|000028e0| 20 77 65 20 61 72 65 20 | 63 68 61 6e 67 69 6e 67 | we are |changing|
|000028f0| 20 79 65 61 72 73 0d 76 | 69 73 75 61 6c 20 64 69 | years.v|isual di|
|00002900| 73 73 6f 6c 76 65 0d 2d | 2d 67 6f 20 74 6f 20 74 |ssolve.-|-go to t|
|00002910| 68 65 20 72 69 67 68 74 | 20 63 61 6c 65 6e 64 61 |he right| calenda|
|00002920| 72 0d 46 69 6e 64 59 65 | 61 72 54 65 6d 70 6c 61 |r.FindYe|arTempla|
|00002930| 74 65 20 66 44 69 73 70 | 6c 61 79 59 65 61 72 0d |te fDisp|layYear.|
|00002940| 65 6e 64 20 69 66 0d 65 | 6e 64 20 69 66 0d 65 6e |end if.e|nd if.en|
|00002950| 64 20 69 66 0d 65 6e 64 | 20 6d 6f 75 73 65 55 70 |d if.end| mouseUp|
|00002960| 0d 00 00 2e 00 22 02 02 | 00 16 01 38 00 2a 01 fd |....."..|...8.*..|
|00002970| 40 01 00 00 00 00 00 01 | 00 14 00 0e 21 00 00 12 |@.......|....!...|
|00002980| 53 65 6c 65 63 74 65 64 | 20 44 61 74 65 00 00 00 |Selected| Date...|
|00002990| 00 5e 00 2a 01 00 00 15 | 00 02 00 35 00 22 20 00 |.^.*....|...5." .|
|000029a0| 00 00 4e 82 00 01 00 00 | 00 0c 00 00 00 10 48 6f |..N.....|......Ho|
|000029b0| 6d 65 00 00 6f 6e 20 6d | 6f 75 73 65 55 70 0d 70 |me..on m|ouseUp.p|
|000029c0| 75 73 68 20 63 61 72 64 | 0d 76 69 73 75 61 6c 20 |ush card|.visual |
|000029d0| 64 69 73 73 6f 6c 76 65 | 0d 67 6f 20 68 6f 6d 65 |dissolve|.go home|
|000029e0| 0d 65 6e 64 20 6d 6f 75 | 73 65 55 70 0d 00 01 d4 |.end mou|seUp....|
|000029f0| 00 2e 01 00 01 35 00 02 | 01 55 00 22 20 00 00 00 |.....5..|.U." ...|
|00002a00| 03 f4 00 01 00 00 00 0c | 00 00 00 10 52 65 74 75 |........|....Retu|
|00002a10| 72 6e 00 00 6f 6e 20 6d | 6f 75 73 65 55 70 0d 67 |rn..on m|ouseUp.g|
|00002a20| 6c 6f 62 61 6c 20 66 54 | 61 72 67 65 74 46 69 65 |lobal fT|argetFie|
|00002a30| 6c 64 2c 20 66 53 65 6c | 65 63 74 65 64 44 61 74 |ld, fSel|ectedDat|
|00002a40| 65 2c 20 66 4f 62 6a 65 | 63 74 69 76 65 44 61 74 |e, fObje|ctiveDat|
|00002a50| 65 0d 70 75 74 20 65 6d | 70 74 79 20 69 6e 74 6f |e.put em|pty into|
|00002a60| 20 66 4f 62 6a 65 63 74 | 69 76 65 44 61 74 65 0d | fObject|iveDate.|
|00002a70| 76 69 73 75 61 6c 20 69 | 72 69 73 20 63 6c 6f 73 |visual i|ris clos|
|00002a80| 65 0d 70 6f 70 20 63 61 | 72 64 0d 69 66 20 6e 6f |e.pop ca|rd.if no|
|00002a90| 74 20 28 66 54 61 72 67 | 65 74 46 69 65 6c 64 20 |t (fTarg|etField |
|00002aa0| 69 73 20 65 6d 70 74 79 | 29 20 61 6e 64 20 66 54 |is empty|) and fT|
|00002ab0| 61 72 67 65 74 46 69 65 | 6c 64 20 63 6f 6e 74 61 |argetFie|ld conta|
|00002ac0| 69 6e 73 20 22 66 69 65 | 6c 64 22 0d 74 68 65 6e |ins "fie|ld".then|
|00002ad0| 0d 70 75 74 20 22 70 75 | 74 20 66 53 65 6c 65 63 |.put "pu|t fSelec|
|00002ae0| 74 65 64 44 61 74 65 20 | 69 6e 74 6f 20 22 20 26 |tedDate |into " &|
|00002af0| 20 66 54 61 72 67 65 74 | 46 69 65 6c 64 20 69 6e | fTarget|Field in|
|00002b00| 74 6f 20 66 49 6e 73 74 | 72 75 63 74 69 6f 6e 0d |to fInst|ruction.|
|00002b10| 64 6f 20 66 49 6e 73 74 | 72 75 63 74 69 6f 6e 0d |do fInst|ruction.|
|00002b20| 70 75 74 20 66 53 65 6c | 65 63 74 65 64 44 61 74 |put fSel|ectedDat|
|00002b30| 65 20 69 6e 74 6f 20 69 | 74 0d 70 75 74 20 65 6d |e into i|t.put em|
|00002b40| 70 74 79 20 69 6e 74 6f | 20 66 54 61 72 67 65 74 |pty into| fTarget|
|00002b50| 46 69 65 6c 64 0d 65 6e | 64 20 69 66 0d 70 75 74 |Field.en|d if.put|
|00002b60| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 6d 65 20 | the nam|e of me |
|00002b70| 69 6e 74 6f 20 66 53 6f | 75 72 63 65 4f 62 6a 65 |into fSo|urceObje|
|00002b80| 63 74 0d 4c 79 66 65 4c | 79 6e 6b 20 66 53 65 6c |ct.LyfeL|ynk fSel|
|00002b90| 65 63 74 65 64 44 61 74 | 65 2c 20 22 6d 6f 75 73 |ectedDat|e, "mous|
|00002ba0| 65 55 70 22 2c 20 66 53 | 6f 75 72 63 65 4f 62 6a |eUp", fS|ourceObj|
|00002bb0| 65 63 74 0d 65 6e 64 20 | 6d 6f 75 73 65 55 70 0d |ect.end |mouseUp.|
|00002bc0| 00 00 00 f6 00 30 01 00 | 00 14 00 2d 00 2d 00 47 |.....0..|...-.-.G|
|00002bd0| 20 00 00 00 09 ae 00 01 | 00 00 00 0c 00 00 00 10 | .......|........|
|00002be0| 41 62 6f 75 74 2e 2e 2e | 00 00 6f 6e 20 6d 6f 75 |About...|..on mou|
|00002bf0| 73 65 55 70 0d 2d 2d 67 | 6f 20 74 6f 20 74 68 65 |seUp.--g|o to the|
|00002c00| 20 66 69 72 73 74 20 63 | 61 72 64 20 6f 66 20 74 | first c|ard of t|
|00002c10| 68 69 73 20 73 74 61 63 | 6b 0d 0d 67 6c 6f 62 61 |his stac|k..globa|
|00002c20| 6c 20 66 53 65 6c 65 63 | 74 65 64 44 61 74 65 0d |l fSelec|tedDate.|
|00002c30| 0d 76 69 73 75 61 6c 20 | 65 66 66 65 63 74 20 69 |.visual |effect i|
|00002c40| 72 69 73 20 63 6c 6f 73 | 65 0d 70 75 74 20 66 53 |ris clos|e.put fS|
|00002c50| 65 6c 65 63 74 65 64 44 | 61 74 65 20 69 6e 74 6f |electedD|ate into|
|00002c60| 20 66 69 65 6c 64 20 22 | 53 65 6c 65 63 74 65 64 | field "|Selected|
|00002c70| 20 44 61 74 65 22 20 6f | 66 20 66 69 72 73 74 20 | Date" o|f first |
|00002c80| 63 61 72 64 0d 67 6f 20 | 74 6f 20 63 61 72 64 20 |card.go |to card |
|00002c90| 22 46 69 72 73 74 20 4c | 54 20 43 61 6c 65 6e 64 |"First L|T Calend|
|00002ca0| 61 72 20 43 61 72 64 22 | 0d 0d 65 6e 64 20 6d 6f |ar Card"|..end mo|
|00002cb0| 75 73 65 55 70 0d 00 00 | 00 fa 00 31 01 00 00 17 |useUp...|...1....|
|00002cc0| 00 7a 00 2a 00 9f a0 04 | 00 00 00 00 00 01 00 14 |.z.*....|........|
|00002cd0| 00 0c 00 00 00 10 54 6f | 64 61 79 00 00 6f 6e 20 |......To|day..on |
|00002ce0| 6d 6f 75 73 65 55 70 0d | 2d 2d 67 6f 20 74 6f 20 |mouseUp.|--go to |
|00002cf0| 74 68 65 20 63 61 6c 65 | 6e 64 61 72 20 66 6f 72 |the cale|ndar for|
|00002d00| 20 74 6f 64 61 79 20 61 | 6e 64 20 62 6f 78 20 74 | today a|nd box t|
|00002d10| 6f 64 61 79 27 73 20 64 | 61 74 65 0d 0d 67 6c 6f |oday's d|ate..glo|
|00002d20| 62 61 6c 20 66 53 65 6c | 65 63 74 65 64 44 61 74 |bal fSel|ectedDat|
|00002d30| 65 0d 0d 70 75 74 20 74 | 68 65 20 6c 6f 6e 67 20 |e..put t|he long |
|00002d40| 64 61 74 65 20 69 6e 74 | 6f 20 66 53 65 6c 65 63 |date int|o fSelec|
|00002d50| 74 65 64 44 61 74 65 0d | 70 75 74 20 66 53 65 6c |tedDate.|put fSel|
|00002d60| 65 63 74 65 64 44 61 74 | 65 20 69 6e 74 6f 20 66 |ectedDat|e into f|
|00002d70| 69 65 6c 64 20 22 53 65 | 6c 65 63 74 65 64 20 44 |ield "Se|lected D|
|00002d80| 61 74 65 22 0d 46 69 6e | 64 43 61 6c 65 6e 64 61 |ate".Fin|dCalenda|
|00002d90| 72 44 61 74 65 20 66 53 | 65 6c 65 63 74 65 64 44 |rDate fS|electedD|
|00002da0| 61 74 65 0d 0d 65 6e 64 | 20 6d 6f 75 73 65 55 70 |ate..end| mouseUp|
|00002db0| 0d 00 00 72 00 32 01 00 | 00 00 00 89 00 14 01 8d |...r.2..|........|
|00002dc0| 80 00 00 00 00 00 00 01 | 00 00 00 0c 00 00 00 10 |........|........|
|00002dd0| 4c 79 66 65 54 79 6d 65 | aa 20 43 61 6c 65 6e 64 |LyfeTyme|. Calend|
|00002de0| 61 72 00 00 6f 6e 20 6d | 6f 75 73 65 55 70 0d 63 |ar..on m|ouseUp.c|
|00002df0| 6c 69 63 6b 20 61 74 20 | 6c 6f 63 20 6f 66 20 62 |lick at |loc of b|
|00002e00| 6b 67 6e 64 20 62 75 74 | 74 6f 6e 20 22 41 62 6f |kgnd but|ton "Abo|
|00002e10| 75 74 2e 2e 2e 22 0d 65 | 6e 64 20 6d 6f 75 73 65 |ut...".e|nd mouse|
|00002e20| 55 70 0d 00 02 f2 00 34 | 01 00 00 00 00 2d 00 11 |Up.....4|.....-..|
|00002e30| 00 84 80 01 00 00 00 00 | 00 00 00 14 00 0a 00 00 |........|........|
|00002e40| 00 0d 56 65 72 73 69 6f | 6e 20 31 2e 31 00 00 6f |..Versio|n 1.1..o|
|00002e50| 6e 20 6d 6f 75 73 65 55 | 70 0d 2d 2d 56 65 72 73 |n mouseU|p.--Vers|
|00002e60| 69 6f 6e 20 31 2e 31 0d | 2d 2d 41 70 72 69 6c 20 |ion 1.1.|--April |
|00002e70| 31 33 2c 20 31 39 38 39 | 0d 2d 2d 0d 2d 2d 50 75 |13, 1989|.--.--Pu|
|00002e80| 74 73 20 54 6f 64 61 79 | 27 73 20 44 61 74 65 20 |ts Today|'s Date |
|00002e90| 69 6e 74 6f 20 66 69 65 | 6c 64 20 22 53 65 6c 65 |into fie|ld "Sele|
|00002ea0| 63 74 65 64 20 44 61 74 | 65 22 20 77 68 65 6e 20 |cted Dat|e" when |
|00002eb0| 74 68 65 20 79 65 61 72 | 20 64 69 73 70 6c 61 79 |the year| display|
|00002ec0| 65 64 0d 2d 2d 6d 61 74 | 63 68 65 73 20 74 68 65 |ed.--mat|ches the|
|00002ed0| 20 79 65 61 72 20 6f 66 | 20 74 6f 64 61 79 27 73 | year of| today's|
|00002ee0| 20 64 61 74 65 2e 20 20 | 41 20 62 75 67 20 69 6e | date.  |A bug in|
|00002ef0| 20 74 68 65 20 65 61 72 | 6c 69 65 72 20 76 65 72 | the ear|lier ver|
|00002f00| 73 69 6f 6e 0d 2d 2d 6f | 76 65 72 6c 6f 6f 6b 65 |sion.--o|verlooke|
|00002f10| 64 20 73 65 74 74 69 6e | 67 20 74 68 61 74 20 64 |d settin|g that d|
|00002f20| 61 74 65 20 69 6e 20 74 | 68 61 74 20 66 69 65 6c |ate in t|hat fiel|
|00002f30| 64 20 75 6e 64 65 72 20 | 74 68 6f 73 65 20 63 6f |d under |those co|
|00002f40| 6e 64 69 74 69 6f 6e 73 | 2e 0d 2d 2d 0d 2d 2d 43 |nditions|..--.--C|
|00002f50| 6f 72 72 65 63 74 73 20 | 70 72 6f 6d 70 74 20 67 |orrects |prompt g|
|00002f60| 69 76 65 6e 20 77 68 65 | 6e 20 22 50 69 63 6b 20 |iven whe|n "Pick |
|00002f70| 41 20 59 65 61 72 22 20 | 62 75 74 74 6f 6e 20 69 |A Year" |button i|
|00002f80| 73 20 63 6c 69 63 6b 65 | 64 2e 20 20 4e 6f 77 0d |s clicke|d.  Now.|
|00002f90| 2d 2d 69 74 20 69 6e 63 | 6c 75 64 65 73 20 31 39 |--it inc|ludes 19|
|00002fa0| 30 34 20 61 6d 6f 6e 67 | 20 74 68 65 20 61 76 61 |04 among| the ava|
|00002fb0| 69 6c 61 62 6c 65 20 63 | 68 6f 69 63 65 73 2c 20 |ilable c|hoices, |
|00002fc0| 61 6e 64 20 73 70 65 63 | 69 66 69 65 73 20 74 68 |and spec|ifies th|
|00002fd0| 65 0d 2d 2d 75 70 70 65 | 72 20 6c 69 6d 69 74 20 |e.--uppe|r limit |
|00002fe0| 79 65 61 72 20 61 73 20 | 6c 65 73 73 20 74 68 61 |year as |less tha|
|00002ff0| 6e 20 32 30 34 30 2e 20 | 20 42 65 66 6f 72 65 2c |n 2040. | Before,|
|00003000| 20 74 68 65 20 70 72 6f | 6d 70 74 20 6f 6e 6c 79 | the pro|mpt only|
|00003010| 0d 2d 2d 73 70 65 63 69 | 66 69 65 64 20 74 68 61 |.--speci|fied tha|
|00003020| 74 20 74 68 65 20 79 65 | 61 72 20 73 65 6c 65 63 |t the ye|ar selec|
|00003030| 74 65 64 20 62 65 20 67 | 72 65 61 74 65 72 20 74 |ted be g|reater t|
|00003040| 68 61 6e 20 31 39 30 34 | 2e 0d 2d 2d 0d 2d 2d 41 |han 1904|..--.--A|
|00003050| 64 64 73 20 66 65 61 74 | 75 72 65 20 61 6c 6c 6f |dds feat|ure allo|
|00003060| 77 69 6e 67 20 75 73 65 | 72 20 74 6f 20 74 61 62 |wing use|r to tab|
|00003070| 20 69 6e 74 6f 20 74 68 | 65 20 22 53 65 6c 65 63 | into th|e "Selec|
|00003080| 74 65 64 20 44 61 74 65 | 22 20 66 69 65 6c 64 2c |ted Date|" field,|
|00003090| 0d 2d 2d 74 79 70 65 20 | 61 20 6e 75 6d 62 65 72 |.--type |a number|
|000030a0| 20 69 6e 20 61 6e 79 20 | 48 79 70 65 72 43 61 72 | in any |HyperCar|
|000030b0| 64 20 66 6f 72 6d 61 74 | 2c 20 61 6e 64 20 68 69 |d format|, and hi|
|000030c0| 74 20 74 68 65 20 65 6e | 74 65 72 20 6b 65 79 20 |t the en|ter key |
|000030d0| 74 6f 0d 2d 2d 61 64 76 | 61 6e 63 65 20 74 6f 20 |to.--adv|ance to |
|000030e0| 61 20 63 61 6c 65 6e 64 | 61 72 20 77 69 74 68 20 |a calend|ar with |
|000030f0| 74 68 61 74 20 73 70 65 | 63 69 66 69 65 64 20 64 |that spe|cified d|
|00003100| 61 74 65 2e 0d 2d 2d 0d | 65 6e 64 20 6d 6f 75 73 |ate..--.|end mous|
|00003110| 65 55 70 0d 00 00 4c 79 | 66 65 54 79 6d 65 aa 20 |eUp...Ly|feTyme. |
|00003120| 43 61 6c 65 6e 64 61 72 | 00 2d 2d 4c 79 66 65 54 |Calendar|.--LyfeT|
|00003130| 79 6d 65 aa 20 43 61 6c | 65 6e 64 61 72 0d 2d 2d |yme. Cal|endar.--|
|00003140| 41 20 48 79 2d 50 65 72 | 70 65 74 75 61 6c 20 43 |A Hy-Per|petual C|
|00003150| 61 6c 65 6e 64 61 72 20 | 43 6f 76 65 72 69 6e 67 |alendar |Covering|
|00003160| 20 74 68 65 20 53 61 6d | 65 20 44 61 74 65 73 20 | the Sam|e Dates |
|00003170| 61 73 20 48 79 70 65 72 | 43 61 72 64 a8 0d 2d 2d |as Hyper|Card..--|
|00003180| 56 65 72 73 69 6f 6e 20 | 31 2e 30 0d 0d 2d 2d 51 |Version |1.0..--Q|
|00003190| 75 65 73 74 69 6f 6e 73 | 20 6f 72 20 43 6f 6d 6d |uestions| or Comm|
|000031a0| 65 6e 74 73 3f 20 43 6f | 6e 74 61 63 74 3a 0d 2d |ents? Co|ntact:.-|
|000031b0| 2d 50 68 69 6c 69 70 20 | 41 2e 20 54 6f 6c 6c 2c |-Philip |A. Toll,|
|000031c0| 20 4a 72 2e 0d 2d 2d 32 | 33 30 36 20 4e 6f 76 65 | Jr..--2|306 Nove|
|000031d0| 6d 62 65 72 20 4c 61 6e | 65 0d 2d 2d 52 65 73 74 |mber Lan|e.--Rest|
|000031e0| 6f 6e 2c 20 56 41 20 20 | 20 32 32 30 39 31 2d 34 |on, VA  | 22091-4|
|000031f0| 36 30 39 0d 2d 2d 43 6f | 6d 70 75 53 65 72 76 65 |609.--Co|mpuServe|
|00003200| 20 37 33 32 30 30 2c 33 | 35 35 30 0d 0d 2d 2d a8 | 73200,3|550..--.|
|00003210| 48 79 70 65 72 43 61 72 | 64 20 69 73 20 61 20 72 |HyperCar|d is a r|
|00003220| 65 67 69 73 74 65 72 65 | 64 20 74 72 61 64 65 6d |egistere|d tradem|
|00003230| 61 72 6b 20 6f 66 20 41 | 70 70 6c 65 20 43 6f 6d |ark of A|pple Com|
|00003240| 70 75 74 65 72 20 43 6f | 72 70 6f 72 61 74 69 6f |puter Co|rporatio|
|00003250| 6e 0d 0d 2d 2d 56 61 72 | 69 61 62 6c 65 73 20 55 |n..--Var|iables U|
|00003260| 73 65 64 20 69 6e 20 54 | 68 69 73 20 42 61 63 6b |sed in T|his Back|
|00003270| 67 72 6f 75 6e 64 20 53 | 63 72 69 70 74 0d 2d 2d |ground S|cript.--|
|00003280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032a0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 2d 2d 66 43 6c 69 63 |--------|.--fClic|
|000032b0| 6b 20 2d 20 74 68 65 20 | 6d 6f 75 73 65 20 63 6c |k - the |mouse cl|
|000032c0| 69 63 6b 20 6c 6f 63 61 | 74 69 6f 6e 0d 2d 2d 66 |ick loca|tion.--f|
|000032d0| 44 61 74 65 20 2d 20 74 | 68 65 20 73 65 6c 65 63 |Date - t|he selec|
|000032e0| 74 65 64 20 64 61 74 65 | 20 28 31 2c 20 32 2c 20 |ted date| (1, 2, |
|000032f0| 33 2c 2e 2e 2e 29 0d 2d | 2d 66 44 69 73 70 6c 61 |3,...).-|-fDispla|
|00003300| 79 59 65 61 72 20 2d 20 | 74 68 65 20 63 75 72 72 |yYear - |the curr|
|00003310| 65 6e 74 20 63 61 6c 65 | 6e 64 61 72 20 79 65 61 |ent cale|ndar yea|
|00003320| 72 20 64 69 73 70 6c 61 | 79 65 64 0d 2d 2d 66 4d |r displa|yed.--fM|
|00003330| 6f 6e 74 68 20 2d 20 74 | 68 65 20 63 75 72 72 65 |onth - t|he curre|
|00003340| 6e 74 20 73 65 6c 65 63 | 74 65 64 20 6d 6f 6e 74 |nt selec|ted mont|
|00003350| 68 0d 2d 2d 66 4d 6f 6e | 74 68 4e 75 6d 62 65 72 |h.--fMon|thNumber|
|00003360| 20 2d 20 74 68 65 20 73 | 65 71 75 65 6e 74 69 61 | - the s|equentia|
|00003370| 6c 20 6e 75 6d 62 65 72 | 20 6f 66 20 61 20 6d 6f |l number| of a mo|
|00003380| 6e 74 68 2c 20 77 69 74 | 68 20 4a 61 6e 75 61 72 |nth, wit|h Januar|
|00003390| 79 20 3d 20 31 0d 2d 2d | 66 4d 6f 6e 74 68 4e 61 |y = 1.--|fMonthNa|
|000033a0| 6d 65 46 69 65 6c 64 20 | 2d 20 6e 61 6d 65 20 6f |meField |- name o|
|000033b0| 66 20 74 68 65 20 66 69 | 65 6c 64 20 63 6f 6e 74 |f the fi|eld cont|
|000033c0| 61 69 6e 69 6e 67 20 74 | 68 65 20 6e 61 6d 65 20 |aining t|he name |
|000033d0| 6f 66 20 61 20 6d 6f 6e | 74 68 0d 2d 2d 66 4f 62 |of a mon|th.--fOb|
|000033e0| 6a 65 63 74 69 76 65 44 | 61 74 65 20 2d 20 61 20 |jectiveD|ate - a |
|000033f0| 67 6c 6f 62 61 6c 20 76 | 61 72 69 61 62 6c 65 20 |global v|ariable |
|00003400| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 61 0d 2d 2d 20 |containi|ng a.-- |
|00003410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003420| 64 61 74 65 20 69 6e 20 | 61 6e 79 20 73 74 61 6e |date in |any stan|
|00003430| 64 61 72 64 20 48 79 70 | 65 72 43 61 72 64 a8 20 |dard Hyp|erCard. |
|00003440| 66 6f 72 6d 61 74 0d 2d | 2d 20 20 20 20 20 20 20 |format.-|-       |
|00003450| 20 20 20 20 20 20 20 20 | 20 20 77 68 65 6e 20 73 |        |  when s|
|00003460| 70 65 63 69 66 69 65 64 | 20 28 69 2e 65 2e 2c 20 |pecified| (i.e., |
|00003470| 6e 6f 74 20 3d 20 65 6d | 70 74 79 29 2c 20 74 68 |not = em|pty), th|
|00003480| 69 73 20 64 61 74 65 20 | 69 73 20 75 73 65 64 0d |is date |is used.|
|00003490| 2d 2d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |--      |        |
|000034a0| 20 20 20 74 6f 20 73 65 | 6c 65 63 74 20 74 68 65 |   to se|lect the|
|000034b0| 20 66 69 72 73 74 20 63 | 61 6c 65 6e 64 61 72 20 | first c|alendar |
|000034c0| 64 69 73 70 6c 61 79 65 | 64 20 77 68 65 6e 20 74 |displaye|d when t|
|000034d0| 68 69 73 0d 2d 2d 20 20 | 20 20 20 20 20 20 20 20 |his.--  |        |
|000034e0| 20 20 20 20 20 20 20 73 | 74 61 63 6b 20 69 73 20 |       s|tack is |
|000034f0| 6f 70 65 6e 65 64 0d 2d | 2d 20 20 20 20 20 20 20 |opened.-|-       |
|00003500| 20 20 20 20 20 20 20 20 | 20 20 69 74 20 69 73 20 |        |  it is |
|00003510| 61 6c 73 6f 20 70 75 74 | 20 69 6e 74 6f 20 66 53 |also put| into fS|
|00003520| 65 6c 65 63 74 65 64 44 | 61 74 65 20 61 6e 64 20 |electedD|ate and |
|00003530| 74 68 65 6e 20 63 6c 65 | 61 72 65 64 0d 2d 2d 20 |then cle|ared.-- |
|00003540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003550| 77 68 65 6e 20 74 68 69 | 73 20 73 74 61 63 6b 20 |when thi|s stack |
|00003560| 69 73 20 6f 70 65 6e 65 | 64 0d 2d 2d 66 4f 70 74 |is opene|d.--fOpt|
|00003570| 69 6f 6e 4b 65 79 53 74 | 61 74 65 20 2d 20 73 74 |ionKeySt|ate - st|
|00003580| 61 74 65 20 6f 66 20 74 | 68 65 20 6f 70 74 69 6f |ate of t|he optio|
|00003590| 6e 4b 65 79 20 2d 20 74 | 72 75 65 20 66 6f 72 20 |nKey - t|rue for |
|000035a0| 64 6f 77 6e 2c 20 66 61 | 6c 73 65 20 66 6f 72 20 |down, fa|lse for |
|000035b0| 75 70 0d 2d 2d 66 53 65 | 6c 65 63 74 65 64 44 61 |up.--fSe|lectedDa|
|000035c0| 74 65 20 2d 20 74 68 65 | 20 63 75 72 72 65 6e 74 |te - the| current|
|000035d0| 20 64 61 74 65 20 73 65 | 6c 65 63 74 65 64 20 62 | date se|lected b|
|000035e0| 79 20 74 68 65 20 75 73 | 65 72 0d 2d 2d 20 20 20 |y the us|er.--   |
|000035f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 77 68 65 |        |     whe|
|00003600| 6e 20 74 68 69 73 20 73 | 74 61 63 6b 20 69 73 20 |n this s|tack is |
|00003610| 6f 70 65 6e 65 64 2c 20 | 69 74 20 69 73 20 69 6e |opened, |it is in|
|00003620| 69 74 69 61 6c 6c 79 20 | 73 65 74 20 65 69 74 68 |itially |set eith|
|00003630| 65 72 0d 2d 2d 20 20 20 | 20 20 20 20 20 20 20 20 |er.--   |        |
|00003640| 20 20 20 20 20 74 6f 20 | 74 68 65 20 76 61 6c 75 |     to |the valu|
|00003650| 65 20 6f 66 20 67 6c 6f | 62 61 6c 20 76 61 72 69 |e of glo|bal vari|
|00003660| 61 62 6c 65 20 66 4f 62 | 6a 65 63 74 69 76 65 44 |able fOb|jectiveD|
|00003670| 61 74 65 2c 20 6f 72 2c | 20 69 66 0d 2d 2d 20 20 |ate, or,| if.--  |
|00003680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 66 4f |        |      fO|
|00003690| 62 6a 65 63 74 69 76 65 | 44 61 74 65 20 69 73 20 |bjective|Date is |
|000036a0| 65 6d 70 74 79 2c 20 74 | 6f 20 74 6f 64 61 79 27 |empty, t|o today'|
|000036b0| 73 20 28 6c 6f 6e 67 29 | 20 64 61 74 65 0d 2d 2d |s (long)| date.--|
|000036c0| 66 54 61 72 67 65 74 46 | 69 65 6c 64 20 2d 20 61 |fTargetF|ield - a|
|000036d0| 20 67 6c 6f 62 61 6c 20 | 76 61 72 69 61 62 6c 65 | global |variable|
|000036e0| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 74 68 65 0d | contain|ing the.|
|000036f0| 2d 2d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |--      |        |
|00003700| 20 28 6c 6f 6e 67 29 20 | 6e 61 6d 65 20 6f 66 20 | (long) |name of |
|00003710| 74 68 65 20 66 69 65 6c | 64 20 69 6e 20 74 68 65 |the fiel|d in the|
|00003720| 20 63 61 6c 6c 69 6e 67 | 20 73 74 61 63 6b 20 77 | calling| stack w|
|00003730| 68 65 72 65 20 74 68 65 | 0d 2d 2d 20 20 20 20 20 |here the|.--     |
|00003740| 20 20 20 20 20 20 20 20 | 20 20 73 65 6c 65 63 74 |        |  select|
|00003750| 65 64 20 64 61 74 65 20 | 77 69 6c 6c 20 62 65 20 |ed date |will be |
|00003760| 70 75 74 20 77 68 65 6e | 20 63 6f 6e 74 72 6f 6c |put when| control|
|00003770| 20 69 73 20 72 65 74 75 | 72 6e 65 64 0d 2d 2d 20 | is retu|rned.-- |
|00003780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 74 6f |        |      to|
|00003790| 20 74 68 65 20 63 61 6c | 6c 69 6e 67 20 73 74 61 | the cal|ling sta|
|000037a0| 63 6b 0d 2d 2d 66 54 61 | 72 67 65 74 4e 61 6d 65 |ck.--fTa|rgetName|
|000037b0| 20 2d 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 | - short| name of|
|000037c0| 20 6f 62 6a 65 63 74 20 | 63 6c 69 63 6b 65 64 20 | object |clicked |
|000037d0| 6f 6e 20 62 79 20 75 73 | 65 72 0d 2d 2d 66 59 65 |on by us|er.--fYe|
|000037e0| 61 72 20 2d 20 74 68 65 | 20 73 65 6c 65 63 74 65 |ar - the| selecte|
|000037f0| 64 20 79 65 61 72 0d 2d | 2d 66 59 65 61 72 53 74 |d year.-|-fYearSt|
|00003800| 61 72 74 44 61 79 20 2d | 20 74 68 65 20 64 61 79 |artDay -| the day|
|00003810| 20 6f 66 20 74 68 65 20 | 77 65 65 6b 20 6f 66 20 | of the |week of |
|00003820| 74 68 65 20 66 69 72 73 | 74 20 64 61 79 20 6f 66 |the firs|t day of|
|00003830| 20 74 68 65 0d 2d 2d 20 | 20 20 20 20 20 20 20 20 | the.-- |        |
|00003840| 20 20 20 20 20 20 20 20 | 63 61 6c 65 6e 64 61 72 |        |calendar|
|00003850| 20 79 65 61 72 20 66 6f | 72 20 64 69 73 70 6c 61 | year fo|r displa|
|00003860| 79 0d 2d 2d 66 59 65 61 | 72 54 79 70 65 20 2d 20 |y.--fYea|rType - |
|00003870| 74 68 65 20 74 79 70 65 | 20 6f 66 20 63 61 6c 65 |the type| of cale|
|00003880| 6e 64 61 72 20 79 65 61 | 72 20 64 69 73 70 6c 61 |ndar yea|r displa|
|00003890| 79 65 64 20 2d 20 22 4e | 6f 72 6d 61 6c 22 20 6f |yed - "N|ormal" o|
|000038a0| 72 20 22 4c 65 61 70 22 | 0d 0d 0d 6f 6e 20 63 6c |r "Leap"|...on cl|
|000038b0| 6f 73 65 66 69 65 6c 64 | 0d 0d 67 6c 6f 62 61 6c |osefield|..global|
|000038c0| 20 66 53 65 6c 65 63 74 | 65 64 44 61 74 65 0d 70 | fSelect|edDate.p|
|000038d0| 75 74 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |ut the n|ame of t|
|000038e0| 68 65 20 74 61 72 67 65 | 74 20 69 6e 74 6f 20 66 |he targe|t into f|
|000038f0| 54 61 72 67 65 74 4e 61 | 6d 65 0d 69 66 20 66 54 |TargetNa|me.if fT|
|00003900| 61 72 67 65 74 4e 61 6d | 65 20 63 6f 6e 74 61 69 |argetNam|e contai|
|00003910| 6e 73 20 22 53 65 6c 65 | 63 74 65 64 20 44 61 74 |ns "Sele|cted Dat|
|00003920| 65 22 0d 74 68 65 6e 0d | 70 75 74 20 66 69 65 6c |e".then.|put fiel|
|00003930| 64 20 22 53 65 6c 65 63 | 74 65 64 20 44 61 74 65 |d "Selec|ted Date|
|00003940| 22 20 69 6e 74 6f 20 66 | 53 65 6c 65 63 74 65 64 |" into f|Selected|
|00003950| 44 61 74 65 0d 63 6f 6e | 76 65 72 74 20 66 53 65 |Date.con|vert fSe|
|00003960| 6c 65 63 74 65 64 44 61 | 74 65 20 74 6f 20 6c 6f |lectedDa|te to lo|
|00003970| 6e 67 20 64 61 74 65 0d | 70 75 74 20 66 53 65 6c |ng date.|put fSel|
|00003980| 65 63 74 65 64 44 61 74 | 65 20 69 6e 74 6f 20 66 |ectedDat|e into f|
|00003990| 69 65 6c 64 20 22 53 65 | 6c 65 63 74 65 64 20 44 |ield "Se|lected D|
|000039a0| 61 74 65 22 0d 46 69 6e | 64 43 61 6c 65 6e 64 61 |ate".Fin|dCalenda|
|000039b0| 72 44 61 74 65 20 66 53 | 65 6c 65 63 74 65 64 44 |rDate fS|electedD|
|000039c0| 61 74 65 0d 65 6e 64 20 | 69 66 0d 0d 65 6e 64 20 |ate.end |if..end |
|000039d0| 63 6c 6f 73 65 66 69 65 | 6c 64 0d 0d 0d 6f 6e 20 |closefie|ld...on |
|000039e0| 46 69 6e 64 59 65 61 72 | 54 65 6d 70 6c 61 74 65 |FindYear|Template|
|000039f0| 20 66 44 69 73 70 6c 61 | 79 59 65 61 72 0d 2d 2d | fDispla|yYear.--|
|00003a00| 66 69 6e 64 20 74 68 65 | 20 63 6f 72 72 65 63 74 |find the| correct|
|00003a10| 20 79 65 61 72 20 74 65 | 6d 70 6c 61 74 65 2f 63 | year te|mplate/c|
|00003a20| 61 72 64 20 66 6f 72 20 | 74 68 65 20 73 70 65 63 |ard for |the spec|
|00003a30| 69 66 69 65 64 20 63 61 | 6c 65 6e 64 61 72 20 79 |ified ca|lendar y|
|00003a40| 65 61 72 0d 0d 67 6c 6f | 62 61 6c 20 66 53 65 6c |ear..glo|bal fSel|
|00003a50| 65 63 74 65 64 44 61 74 | 65 0d 0d 2d 2d 64 65 74 |ectedDat|e..--det|
|00003a60| 65 72 6d 69 6e 65 20 74 | 68 65 20 64 61 79 20 6f |ermine t|he day o|
|00003a70| 66 20 74 68 65 20 77 65 | 65 6b 20 6f 66 20 74 68 |f the we|ek of th|
|00003a80| 65 20 66 69 72 73 74 20 | 64 61 79 20 6f 66 20 74 |e first |day of t|
|00003a90| 68 65 20 73 70 65 63 69 | 66 69 65 64 0d 2d 2d 63 |he speci|fied.--c|
|00003aa0| 61 6c 65 6e 64 61 72 20 | 79 65 61 72 0d 70 75 74 |alendar |year.put|
|00003ab0| 20 22 31 2f 31 2f 22 20 | 26 20 66 44 69 73 70 6c | "1/1/" |& fDispl|
|00003ac0| 61 79 59 65 61 72 20 69 | 6e 74 6f 20 69 74 0d 63 |ayYear i|nto it.c|
|00003ad0| 6f 6e 76 65 72 74 20 69 | 74 20 74 6f 20 6c 6f 6e |onvert i|t to lon|
|00003ae0| 67 20 64 61 74 65 0d 70 | 75 74 20 69 74 65 6d 20 |g date.p|ut item |
|00003af0| 31 20 6f 66 20 69 74 20 | 69 6e 74 6f 20 66 59 65 |1 of it |into fYe|
|00003b00| 61 72 53 74 61 72 74 44 | 61 79 0d 0d 2d 2d 64 65 |arStartD|ay..--de|
|00003b10| 74 65 72 6d 69 6e 65 20 | 74 68 65 20 74 79 70 65 |termine |the type|
|00003b20| 20 6f 66 20 79 65 61 72 | 3a 20 4e 6f 72 6d 61 6c | of year|: Normal|
|00003b30| 20 6f 72 20 4c 65 61 70 | 0d 70 75 74 20 22 4e 6f | or Leap|.put "No|
|00003b40| 72 6d 61 6c 22 20 69 6e | 74 6f 20 66 59 65 61 72 |rmal" in|to fYear|
|00003b50| 54 79 70 65 20 2d 2d 20 | 64 65 66 61 75 6c 74 0d |Type -- |default.|
|00003b60| 69 66 20 66 44 69 73 70 | 6c 61 79 59 65 61 72 20 |if fDisp|layYear |
|00003b70| 6d 6f 64 20 34 20 3d 20 | 30 20 74 68 65 6e 20 70 |mod 4 = |0 then p|
|00003b80| 75 74 20 22 4c 65 61 70 | 22 20 69 6e 74 6f 20 66 |ut "Leap|" into f|
|00003b90| 59 65 61 72 54 79 70 65 | 0d 0d 2d 2d 61 73 73 65 |YearType|..--asse|
|00003ba0| 6d 62 6c 65 20 74 68 65 | 20 6c 61 62 65 6c 20 69 |mble the| label i|
|00003bb0| 64 65 6e 74 69 66 79 69 | 6e 67 20 74 68 65 20 63 |dentifyi|ng the c|
|00003bc0| 6f 72 72 65 63 74 20 63 | 61 6c 65 6e 64 61 72 20 |orrect c|alendar |
|00003bd0| 74 65 6d 70 6c 61 74 65 | 2f 63 61 72 64 0d 70 75 |template|/card.pu|
|00003be0| 74 20 66 59 65 61 72 54 | 79 70 65 20 26 26 20 66 |t fYearT|ype && f|
|00003bf0| 59 65 61 72 53 74 61 72 | 74 44 61 79 20 69 6e 74 |YearStar|tDay int|
|00003c00| 6f 20 66 43 61 72 64 4e | 61 6d 65 0d 0d 2d 2d 6c |o fCardN|ame..--l|
|00003c10| 61 62 65 6c 20 74 68 65 | 20 63 61 6c 65 6e 64 61 |abel the| calenda|
|00003c20| 72 20 74 65 6d 70 6c 61 | 74 65 20 74 6f 20 72 65 |r templa|te to re|
|00003c30| 66 6c 65 63 74 20 74 68 | 65 20 63 75 72 72 65 6e |flect th|e curren|
|00003c40| 74 20 64 69 73 70 6c 61 | 79 20 79 65 61 72 0d 70 |t displa|y year.p|
|00003c50| 75 74 20 66 44 69 73 70 | 6c 61 79 59 65 61 72 20 |ut fDisp|layYear |
|00003c60| 69 6e 74 6f 20 66 69 65 | 6c 64 20 22 43 61 6c 65 |into fie|ld "Cale|
|00003c70| 6e 64 61 72 20 59 65 61 | 72 22 20 6f 66 20 63 61 |ndar Yea|r" of ca|
|00003c80| 72 64 20 66 43 61 72 64 | 4e 61 6d 65 0d 70 75 74 |rd fCard|Name.put|
|00003c90| 20 66 53 65 6c 65 63 74 | 65 64 44 61 74 65 20 69 | fSelect|edDate i|
|00003ca0| 6e 74 6f 20 66 69 65 6c | 64 20 22 53 65 6c 65 63 |nto fiel|d "Selec|
|00003cb0| 74 65 64 20 44 61 74 65 | 22 20 6f 66 20 63 61 72 |ted Date|" of car|
|00003cc0| 64 20 66 43 61 72 64 4e | 61 6d 65 0d 0d 2d 2d 67 |d fCardN|ame..--g|
|00003cd0| 6f 20 74 6f 20 74 68 61 | 74 20 74 65 6d 70 6c 61 |o to tha|t templa|
|00003ce0| 74 65 0d 76 69 73 75 61 | 6c 20 64 69 73 73 6f 6c |te.visua|l dissol|
|00003cf0| 76 65 20 2d 2d 20 64 65 | 66 61 75 6c 74 20 76 69 |ve -- de|fault vi|
|00003d00| 73 75 61 6c 20 65 66 66 | 65 63 74 0d 67 6f 20 74 |sual eff|ect.go t|
|00003d10| 6f 20 63 61 72 64 20 66 | 43 61 72 64 4e 61 6d 65 |o card f|CardName|
|00003d20| 0d 0d 65 6e 64 20 66 69 | 6e 64 59 65 61 72 54 65 |..end fi|ndYearTe|
|00003d30| 6d 70 6c 61 74 65 0d 0d | 0d 6f 6e 20 61 72 72 6f |mplate..|.on arro|
|00003d40| 77 4b 65 79 20 66 57 68 | 69 63 68 4b 65 79 0d 2d |wKey fWh|ichKey.-|
|00003d50| 2d 70 65 72 6d 69 74 73 | 20 75 73 65 20 6f 66 20 |-permits| use of |
|00003d60| 61 72 72 6f 77 6b 65 79 | 73 20 74 6f 20 70 61 67 |arrowkey|s to pag|
|00003d70| 65 20 74 68 72 6f 75 67 | 68 20 63 61 6c 65 6e 64 |e throug|h calend|
|00003d80| 61 72 0d 0d 69 66 20 66 | 57 68 69 63 68 4b 65 79 |ar..if f|WhichKey|
|00003d90| 20 69 73 20 22 6c 65 66 | 74 22 20 74 68 65 6e 20 | is "lef|t" then |
|00003da0| 63 6c 69 63 6b 20 61 74 | 20 6c 6f 63 20 6f 66 20 |click at| loc of |
|00003db0| 62 6b 67 6e 64 20 62 75 | 74 74 6f 6e 20 22 50 72 |bkgnd bu|tton "Pr|
|00003dc0| 65 76 20 59 65 61 72 22 | 0d 69 66 20 66 57 68 69 |ev Year"|.if fWhi|
|00003dd0| 63 68 4b 65 79 20 69 73 | 20 22 72 69 67 68 74 22 |chKey is| "right"|
|00003de0| 20 74 68 65 6e 20 63 6c | 69 63 6b 20 61 74 20 6c | then cl|ick at l|
|00003df0| 6f 63 20 6f 66 20 62 6b | 67 6e 64 20 62 75 74 74 |oc of bk|gnd butt|
|00003e00| 6f 6e 20 22 4e 65 78 74 | 20 59 65 61 72 22 0d 0d |on "Next| Year"..|
|00003e10| 65 6e 64 20 41 72 72 6f | 77 4b 65 79 0d 0d 0d 6f |end Arro|wKey...o|
|00003e20| 6e 20 6d 6f 75 73 65 55 | 70 0d 2d 2d 70 6c 61 63 |n mouseU|p.--plac|
|00003e30| 65 73 20 74 68 65 20 64 | 61 74 65 20 73 65 6c 65 |es the d|ate sele|
|00003e40| 63 74 65 64 20 62 79 20 | 74 68 65 20 75 73 65 72 |cted by |the user|
|00003e50| 20 66 72 6f 6d 20 74 68 | 65 20 63 61 6c 65 6e 64 | from th|e calend|
|00003e60| 61 72 20 69 6e 74 6f 0d | 2d 2d 74 68 65 20 61 70 |ar into.|--the ap|
|00003e70| 70 72 6f 70 72 69 61 74 | 65 20 66 69 65 6c 64 73 |propriat|e fields|
|00003e80| 20 61 6e 64 20 76 61 72 | 69 61 62 6c 65 73 0d 0d | and var|iables..|
|00003e90| 67 6c 6f 62 61 6c 20 66 | 53 65 6c 65 63 74 65 64 |global f|Selected|
|00003ea0| 44 61 74 65 0d 0d 2d 2d | 69 66 20 63 6c 69 63 6b |Date..--|if click|
|00003eb0| 20 69 73 20 6f 6e 6c 79 | 20 6f 6e 20 74 68 65 20 | is only| on the |
|00003ec0| 63 61 72 64 20 66 61 63 | 65 2c 20 64 6f 20 6e 6f |card fac|e, do no|
|00003ed0| 74 68 69 6e 67 0d 69 66 | 20 6e 6f 74 20 28 74 68 |thing.if| not (th|
|00003ee0| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 74 61 |e name o|f the ta|
|00003ef0| 72 67 65 74 20 63 6f 6e | 74 61 69 6e 73 20 22 63 |rget con|tains "c|
|00003f00| 61 72 64 22 29 0d 74 68 | 65 6e 0d 0d 69 66 20 74 |ard").th|en..if t|
|00003f10| 68 65 20 6f 70 74 69 6f | 6e 6b 65 79 20 69 73 20 |he optio|nkey is |
|00003f20| 64 6f 77 6e 0d 74 68 65 | 6e 20 70 75 74 20 22 74 |down.the|n put "t|
|00003f30| 72 75 65 22 20 69 6e 74 | 6f 20 66 4f 70 74 69 6f |rue" int|o fOptio|
|00003f40| 6e 4b 65 79 53 74 61 74 | 65 20 2d 2d 20 63 61 70 |nKeyStat|e -- cap|
|00003f50| 74 75 72 65 20 73 74 61 | 74 65 20 72 69 67 68 74 |ture sta|te right|
|00003f60| 20 61 77 61 79 0d 65 6c | 73 65 20 70 75 74 20 22 | away.el|se put "|
|00003f70| 66 61 6c 73 65 22 20 69 | 6e 74 6f 20 66 4f 70 74 |false" i|nto fOpt|
|00003f80| 69 6f 6e 4b 65 79 53 74 | 61 74 65 0d 0d 2d 2d 73 |ionKeySt|ate..--s|
|00003f90| 61 76 65 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |ave the |name of |
|00003fa0| 77 68 61 74 20 74 68 65 | 20 75 73 65 72 20 63 6c |what the| user cl|
|00003fb0| 69 63 6b 65 64 20 69 6e | 2c 20 72 69 67 68 74 20 |icked in|, right |
|00003fc0| 61 77 61 79 0d 70 75 74 | 20 74 68 65 20 73 68 6f |away.put| the sho|
|00003fd0| 72 74 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 74 |rt name |of the t|
|00003fe0| 61 72 67 65 74 20 69 6e | 74 6f 20 66 54 61 72 67 |arget in|to fTarg|
|00003ff0| 65 74 4e 61 6d 65 0d 70 | 75 74 20 74 68 65 20 63 |etName.p|ut the c|
|00004000| 6c 69 63 6b 4c 6f 63 20 | 69 6e 74 6f 20 66 43 6c |lickLoc |into fCl|
|00004010| 69 63 6b 0d 0d 2d 2d 73 | 65 74 20 64 65 66 61 75 |ick..--s|et defau|
|00004020| 6c 74 20 64 61 74 65 20 | 76 61 6c 75 65 73 0d 69 |lt date |values.i|
|00004030| 66 20 6e 6f 74 20 28 66 | 53 65 6c 65 63 74 65 64 |f not (f|Selected|
|00004040| 44 61 74 65 20 69 73 20 | 65 6d 70 74 79 29 20 2d |Date is |empty) -|
|00004050| 2d 20 6a 75 73 74 20 69 | 6e 20 63 61 73 65 0d 74 |- just i|n case.t|
|00004060| 68 65 6e 0d 70 75 74 20 | 66 53 65 6c 65 63 74 65 |hen.put |fSelecte|
|00004070| 64 44 61 74 65 20 69 6e | 74 6f 20 69 74 0d 63 6f |dDate in|to it.co|
|00004080| 6e 76 65 72 74 20 69 74 | 20 74 6f 20 64 61 74 65 |nvert it| to date|
|00004090| 69 74 65 6d 73 0d 70 75 | 74 20 69 74 65 6d 20 31 |items.pu|t item 1|
|000040a0| 20 6f 66 20 69 74 20 69 | 6e 74 6f 20 66 59 65 61 | of it i|nto fYea|
|000040b0| 72 0d 70 75 74 20 69 74 | 65 6d 20 32 20 6f 66 20 |r.put it|em 2 of |
|000040c0| 69 74 20 69 6e 74 6f 20 | 66 4d 6f 6e 74 68 4e 75 |it into |fMonthNu|
|000040d0| 6d 62 65 72 0d 70 75 74 | 20 22 4d 6f 6e 74 68 20 |mber.put| "Month |
|000040e0| 22 20 26 20 66 4d 6f 6e | 74 68 4e 75 6d 62 65 72 |" & fMon|thNumber|
|000040f0| 20 69 6e 74 6f 20 66 4d | 6f 6e 74 68 4e 61 6d 65 | into fM|onthName|
|00004100| 46 69 65 6c 64 0d 70 75 | 74 20 66 69 65 6c 64 20 |Field.pu|t field |
|00004110| 66 4d 6f 6e 74 68 4e 61 | 6d 65 46 69 65 6c 64 20 |fMonthNa|meField |
|00004120| 69 6e 74 6f 20 66 4d 6f | 6e 74 68 0d 70 75 74 20 |into fMo|nth.put |
|00004130| 69 74 65 6d 20 33 20 6f | 66 20 69 74 20 69 6e 74 |item 3 o|f it int|
|00004140| 6f 20 66 44 61 74 65 0d | 65 6c 73 65 0d 70 75 74 |o fDate.|else.put|
|00004150| 20 74 68 65 20 6c 6f 6e | 67 20 64 61 74 65 20 69 | the lon|g date i|
|00004160| 6e 74 6f 20 66 53 65 6c | 65 63 74 65 64 44 61 74 |nto fSel|ectedDat|
|00004170| 65 0d 65 6e 64 20 69 66 | 0d 0d 2d 2d 69 66 20 75 |e.end if|..--if u|
|00004180| 73 65 72 20 63 6c 69 63 | 6b 65 64 20 74 68 65 20 |ser clic|ked the |
|00004190| 64 69 73 70 6c 61 79 65 | 64 20 63 61 6c 65 6e 64 |displaye|d calend|
|000041a0| 61 72 20 79 65 61 72 20 | 66 69 65 6c 64 2c 20 75 |ar year |field, u|
|000041b0| 70 64 61 74 65 20 74 68 | 65 20 79 65 61 72 0d 69 |pdate th|e year.i|
|000041c0| 66 20 66 54 61 72 67 65 | 74 4e 61 6d 65 20 69 73 |f fTarge|tName is|
|000041d0| 20 22 43 61 6c 65 6e 64 | 61 72 20 59 65 61 72 22 | "Calend|ar Year"|
|000041e0| 0d 74 68 65 6e 20 70 75 | 74 20 6c 69 6e 65 20 31 |.then pu|t line 1|
|000041f0| 20 6f 66 20 66 69 65 6c | 64 20 22 43 61 6c 65 6e | of fiel|d "Calen|
|00004200| 64 61 72 20 59 65 61 72 | 22 20 69 6e 74 6f 20 66 |dar Year|" into f|
|00004210| 59 65 61 72 0d 0d 2d 2d | 69 66 20 75 73 65 72 20 |Year..--|if user |
|00004220| 63 6c 69 63 6b 65 64 20 | 61 20 6d 6f 6e 74 68 20 |clicked |a month |
|00004230| 6e 61 6d 65 20 66 69 65 | 6c 64 2c 20 75 70 64 61 |name fie|ld, upda|
|00004240| 74 65 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |te the n|ame of t|
|00004250| 68 65 20 6d 6f 6e 74 68 | 0d 69 66 20 66 54 61 72 |he month|.if fTar|
|00004260| 67 65 74 4e 61 6d 65 20 | 63 6f 6e 74 61 69 6e 73 |getName |contains|
|00004270| 20 22 4d 6f 6e 74 68 22 | 0d 74 68 65 6e 20 70 75 | "Month"|.then pu|
|00004280| 74 20 66 69 65 6c 64 20 | 66 54 61 72 67 65 74 4e |t field |fTargetN|
|00004290| 61 6d 65 20 69 6e 74 6f | 20 66 4d 6f 6e 74 68 0d |ame into| fMonth.|
|000042a0| 0d 2d 2d 69 66 20 63 6c | 69 63 6b 20 69 73 20 69 |.--if cl|ick is i|
|000042b0| 6e 20 61 20 6d 6f 6e 74 | 68 6c 79 20 64 61 74 65 |n a mont|hly date|
|000042c0| 20 66 69 65 6c 64 2e 2e | 2e 0d 69 66 20 66 54 61 | field..|..if fTa|
|000042d0| 72 67 65 74 4e 61 6d 65 | 20 69 73 20 69 6e 20 c2 |rgetName| is in .|
|000042e0| 0d 22 4a 61 6e 75 61 72 | 79 20 46 65 62 72 75 61 |."Januar|y Februa|
|000042f0| 72 79 20 4d 61 72 63 68 | 20 41 70 72 69 6c 20 4d |ry March| April M|
|00004300| 61 79 20 4a 75 6e 65 20 | 4a 75 6c 79 20 41 75 67 |ay June |July Aug|
|00004310| 75 73 74 20 53 65 70 74 | 65 6d 62 65 72 20 4f 63 |ust Sept|ember Oc|
|00004320| 74 6f 62 65 72 20 4e 6f | 76 65 6d 62 65 72 20 44 |tober No|vember D|
|00004330| 65 63 65 6d 62 65 72 22 | 0d 74 68 65 6e 0d 2d 2d |ecember"|.then.--|
|00004340| 2e 2e 2e 67 65 74 20 74 | 68 65 20 6d 6f 6e 74 68 |...get t|he month|
|00004350| 20 61 6e 64 20 64 61 74 | 65 20 69 6e 66 6f 72 6d | and dat|e inform|
|00004360| 61 74 69 6f 6e 0d 2d 2d | 66 72 6f 6d 20 74 68 65 |ation.--|from the|
|00004370| 20 66 69 65 6c 64 20 6e | 61 6d 65 20 61 6e 64 20 | field n|ame and |
|00004380| 74 68 65 20 66 69 65 6c | 64 20 69 74 73 65 6c 66 |the fiel|d itself|
|00004390| 0d 73 65 74 20 6c 6f 63 | 6b 74 65 78 74 20 6f 66 |.set loc|ktext of|
|000043a0| 20 74 68 65 20 74 61 72 | 67 65 74 20 74 6f 20 66 | the tar|get to f|
|000043b0| 61 6c 73 65 20 2d 2d 6f | 70 65 6e 20 74 68 65 20 |alse --o|pen the |
|000043c0| 66 69 65 6c 64 20 66 6f | 72 20 64 61 74 61 20 73 |field fo|r data s|
|000043d0| 65 6c 65 63 74 69 6f 6e | 0d 2d 2d 73 65 6c 65 63 |election|.--selec|
|000043e0| 74 20 74 68 65 20 64 61 | 74 65 0d 72 65 70 65 61 |t the da|te.repea|
|000043f0| 74 20 32 20 74 69 6d 65 | 73 0d 63 6c 69 63 6b 20 |t 2 time|s.click |
|00004400| 61 74 20 66 43 6c 69 63 | 6b 0d 65 6e 64 20 72 65 |at fClic|k.end re|
|00004410| 70 65 61 74 0d 73 65 74 | 20 6c 6f 63 6b 54 65 78 |peat.set| lockTex|
|00004420| 74 20 6f 66 20 74 68 65 | 20 74 61 72 67 65 74 20 |t of the| target |
|00004430| 74 6f 20 74 72 75 65 0d | 70 75 74 20 74 68 65 20 |to true.|put the |
|00004440| 73 65 6c 65 63 74 69 6f | 6e 20 69 6e 74 6f 20 66 |selectio|n into f|
|00004450| 44 61 74 65 0d 0d 2d 2d | 63 68 65 63 6b 20 74 6f |Date..--|check to|
|00004460| 20 6d 61 6b 65 20 73 75 | 72 65 20 77 65 20 64 69 | make su|re we di|
|00004470| 64 6e 27 74 20 67 72 61 | 62 20 65 6d 70 74 79 20 |dn't gra|b empty |
|00004480| 73 70 61 63 65 0d 69 66 | 20 66 44 61 74 65 20 69 |space.if| fDate i|
|00004490| 73 20 22 22 20 2d 2d 20 | 61 72 65 20 77 65 20 65 |s "" -- |are we e|
|000044a0| 6d 70 74 79 2d 68 61 6e | 64 65 64 3f 0d 74 68 65 |mpty-han|ded?.the|
|000044b0| 6e 0d 63 6c 69 63 6b 20 | 61 74 20 30 2c 30 0d 65 |n.click |at 0,0.e|
|000044c0| 78 69 74 20 6d 6f 75 73 | 65 55 70 20 2d 2d 20 77 |xit mous|eUp -- w|
|000044d0| 65 27 72 65 20 6f 75 74 | 74 61 20 68 65 72 65 21 |e're out|ta here!|
|000044e0| 0d 65 6e 64 20 69 66 0d | 0d 2d 2d 69 6e 20 74 68 |.end if.|.--in th|
|000044f0| 69 73 20 63 61 73 65 2c | 20 74 68 65 20 6d 6f 6e |is case,| the mon|
|00004500| 74 68 20 6e 61 6d 65 20 | 69 73 20 74 68 65 20 6e |th name |is the n|
|00004510| 61 6d 65 20 6f 66 20 74 | 68 65 20 66 69 65 6c 64 |ame of t|he field|
|00004520| 21 0d 70 75 74 20 66 54 | 61 72 67 65 74 4e 61 6d |!.put fT|argetNam|
|00004530| 65 20 69 6e 74 6f 20 66 | 4d 6f 6e 74 68 0d 0d 65 |e into f|Month..e|
|00004540| 6e 64 20 69 66 0d 0d 2d | 2d 61 73 73 65 6d 62 6c |nd if..-|-assembl|
|00004550| 65 20 73 65 6c 65 63 74 | 65 64 20 64 61 74 65 20 |e select|ed date |
|00004560| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 69 6e 74 6f |informat|ion into|
|00004570| 20 61 20 70 61 72 74 69 | 61 6c 20 6c 6f 6e 67 20 | a parti|al long |
|00004580| 64 61 74 65 20 66 6f 72 | 6d 61 74 0d 70 75 74 20 |date for|mat.put |
|00004590| 66 4d 6f 6e 74 68 20 26 | 20 22 20 22 20 26 20 66 |fMonth &| " " & f|
|000045a0| 44 61 74 65 20 26 20 22 | 2c 20 22 20 26 20 66 69 |Date & "|, " & fi|
|000045b0| 65 6c 64 20 22 43 61 6c | 65 6e 64 61 72 20 59 65 |eld "Cal|endar Ye|
|000045c0| 61 72 22 20 69 6e 74 6f | 20 69 74 0d 0d 2d 2d 63 |ar" into| it..--c|
|000045d0| 6f 6e 76 65 72 74 20 61 | 6e 64 20 73 61 76 65 20 |onvert a|nd save |
|000045e0| 77 68 65 72 65 20 6e 65 | 63 65 73 73 61 72 79 0d |where ne|cessary.|
|000045f0| 63 6f 6e 76 65 72 74 20 | 69 74 20 74 6f 20 64 61 |convert |it to da|
|00004600| 74 65 69 74 65 6d 73 0d | 70 75 74 20 69 74 20 69 |teitems.|put it i|
|00004610| 6e 74 6f 20 66 53 65 6c | 65 63 74 65 64 44 61 74 |nto fSel|ectedDat|
|00004620| 65 49 74 65 6d 73 0d 0d | 63 6f 6e 76 65 72 74 20 |eItems..|convert |
|00004630| 69 74 20 74 6f 20 6c 6f | 6e 67 20 64 61 74 65 20 |it to lo|ng date |
|00004640| 2d 2d 73 6f 20 74 68 61 | 74 20 48 79 70 65 72 43 |--so tha|t HyperC|
|00004650| 61 72 64 a8 20 77 69 6c | 6c 20 70 72 6f 76 69 64 |ard. wil|l provid|
|00004660| 65 20 74 68 65 20 44 61 | 79 0d 70 75 74 20 69 74 |e the Da|y.put it|
|00004670| 20 69 6e 74 6f 20 66 69 | 65 6c 64 20 22 53 65 6c | into fi|eld "Sel|
|00004680| 65 63 74 65 64 20 44 61 | 74 65 22 0d 70 75 74 20 |ected Da|te".put |
|00004690| 69 74 20 69 6e 74 6f 20 | 66 53 65 6c 65 63 74 65 |it into |fSelecte|
|000046a0| 64 44 61 74 65 0d 0d 2d | 2d 70 75 74 20 74 68 65 |dDate..-|-put the|
|000046b0| 20 73 65 6c 65 63 74 65 | 64 20 64 61 74 65 20 69 | selecte|d date i|
|000046c0| 6e 74 6f 20 74 68 65 20 | 43 6c 69 70 62 6f 61 72 |nto the |Clipboar|
|000046d0| 64 20 69 66 20 74 68 65 | 20 6f 70 74 69 6f 6e 6b |d if the| optionk|
|000046e0| 65 79 20 69 73 20 64 6f | 77 6e 0d 2d 2d 77 72 69 |ey is do|wn.--wri|
|000046f0| 74 74 65 6e 20 74 6f 20 | 6d 61 69 6e 74 61 69 6e |tten to |maintain|
|00004700| 20 63 6f 6d 70 61 74 69 | 62 69 6c 69 74 79 20 77 | compati|bility w|
|00004710| 2f 20 6f 6c 64 65 72 20 | 76 65 72 73 69 6f 6e 73 |/ older |versions|
|00004720| 20 6f 66 20 48 79 70 65 | 72 43 61 72 64 a8 0d 69 | of Hype|rCard..i|
|00004730| 66 20 66 4f 70 74 69 6f | 6e 4b 65 79 53 74 61 74 |f fOptio|nKeyStat|
|00004740| 65 20 69 73 20 74 72 75 | 65 0d 74 68 65 6e 0d 70 |e is tru|e.then.p|
|00004750| 75 74 20 69 74 65 6d 20 | 32 20 6f 66 20 6c 6f 63 |ut item |2 of loc|
|00004760| 20 6f 66 20 66 69 65 6c | 64 20 22 53 65 6c 65 63 | of fiel|d "Selec|
|00004770| 74 65 64 20 44 61 74 65 | 22 20 69 6e 74 6f 20 69 |ted Date|" into i|
|00004780| 74 65 6d 20 32 20 6f 66 | 20 66 4c 65 66 74 0d 70 |tem 2 of| fLeft.p|
|00004790| 75 74 20 66 4c 65 66 74 | 20 69 6e 74 6f 20 66 52 |ut fLeft| into fR|
|000047a0| 69 67 68 74 0d 70 75 74 | 20 72 65 63 74 20 6f 66 |ight.put| rect of|
|000047b0| 20 66 69 65 6c 64 20 22 | 53 65 6c 65 63 74 65 64 | field "|Selected|
|000047c0| 20 44 61 74 65 22 20 69 | 6e 74 6f 20 66 44 61 74 | Date" i|nto fDat|
|000047d0| 65 52 65 63 74 0d 70 75 | 74 20 69 74 65 6d 20 31 |eRect.pu|t item 1|
|000047e0| 20 6f 66 20 66 44 61 74 | 65 52 65 63 74 20 2b 20 | of fDat|eRect + |
|000047f0| 32 20 69 6e 74 6f 20 69 | 74 65 6d 20 31 20 6f 66 |2 into i|tem 1 of|
|00004800| 20 66 4c 65 66 74 0d 70 | 75 74 20 69 74 65 6d 20 | fLeft.p|ut item |
|00004810| 33 20 6f 66 20 66 44 61 | 74 65 52 65 63 74 20 2d |3 of fDa|teRect -|
|00004820| 32 20 69 6e 74 6f 20 69 | 74 65 6d 20 31 20 6f 66 |2 into i|tem 1 of|
|00004830| 20 66 52 69 67 68 74 0d | 64 72 61 67 20 66 72 6f | fRight.|drag fro|
|00004840| 6d 20 66 4c 65 66 74 20 | 74 6f 20 66 52 69 67 68 |m fLeft |to fRigh|
|00004850| 74 20 77 69 74 68 20 73 | 68 69 66 74 6b 65 79 0d |t with s|hiftkey.|
|00004860| 64 6f 6d 65 6e 75 20 22 | 43 6f 70 79 20 54 65 78 |domenu "|Copy Tex|
|00004870| 74 22 0d 63 6c 69 63 6b | 20 61 74 20 30 2c 30 0d |t".click| at 0,0.|
|00004880| 65 6e 64 20 69 66 0d 0d | 2d 2d 62 6f 78 20 74 68 |end if..|--box th|
|00004890| 65 20 73 65 6c 65 63 74 | 65 64 20 64 61 74 65 20 |e select|ed date |
|000048a0| 6f 6e 20 74 68 65 20 61 | 70 70 72 6f 70 72 69 61 |on the a|ppropria|
|000048b0| 74 65 20 63 61 6c 65 6e | 64 61 72 0d 46 69 6e 64 |te calen|dar.Find|
|000048c0| 43 61 6c 65 6e 64 61 72 | 44 61 74 65 20 66 53 65 |Calendar|Date fSe|
|000048d0| 6c 65 63 74 65 64 44 61 | 74 65 0d 0d 2d 2d 70 61 |lectedDa|te..--pa|
|000048e0| 73 73 20 73 6f 75 72 63 | 65 20 61 6e 64 20 64 61 |ss sourc|e and da|
|000048f0| 74 61 20 6f 6e 20 75 70 | 20 74 68 65 20 69 6e 68 |ta on up| the inh|
|00004900| 65 72 69 74 61 6e 63 65 | 20 70 61 74 68 0d 70 75 |eritance| path.pu|
|00004910| 74 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 6d 65 |t the na|me of me|
|00004920| 20 69 6e 74 6f 20 66 53 | 6f 75 72 63 65 4f 62 6a | into fS|ourceObj|
|00004930| 65 63 74 0d 4c 79 66 65 | 4c 79 6e 6b 20 66 53 65 |ect.Lyfe|Lynk fSe|
|00004940| 6c 65 63 74 65 64 44 61 | 74 65 2c 22 6d 6f 75 73 |lectedDa|te,"mous|
|00004950| 65 55 70 22 2c 66 53 6f | 75 72 63 65 4f 62 6a 65 |eUp",fSo|urceObje|
|00004960| 63 74 0d 0d 65 6e 64 20 | 69 66 0d 0d 65 6e 64 20 |ct..end |if..end |
|00004970| 6d 6f 75 73 65 55 70 0d | 0d 0d 6f 6e 20 50 72 6f |mouseUp.|..on Pro|
|00004980| 63 65 65 64 54 6f 46 69 | 72 73 74 0d 2d 2d 70 72 |ceedToFi|rst.--pr|
|00004990| 6f 63 65 65 64 20 74 6f | 20 74 68 65 20 66 69 72 |oceed to| the fir|
|000049a0| 73 74 20 63 61 6c 65 6e | 64 61 72 0d 0d 67 6c 6f |st calen|dar..glo|
|000049b0| 62 61 6c 20 66 53 65 6c | 65 63 74 65 64 44 61 74 |bal fSel|ectedDat|
|000049c0| 65 0d 0d 69 66 20 66 69 | 65 6c 64 20 22 53 65 6c |e..if fi|eld "Sel|
|000049d0| 65 63 74 65 64 20 44 61 | 74 65 22 20 69 73 20 6e |ected Da|te" is n|
|000049e0| 6f 74 20 65 6d 70 74 79 | 20 2d 2d 6a 75 73 74 20 |ot empty| --just |
|000049f0| 63 68 65 63 6b 69 6e 67 | 21 0d 74 68 65 6e 0d 2d |checking|!.then.-|
|00004a00| 2d 61 6c 6c 6f 77 73 20 | 75 73 65 72 20 74 6f 20 |-allows |user to |
|00004a10| 74 79 70 65 20 69 6e 20 | 61 20 64 61 74 65 20 69 |type in |a date i|
|00004a20| 6e 20 74 68 65 20 22 53 | 65 6c 65 63 74 65 64 20 |n the "S|elected |
|00004a30| 44 61 74 65 22 20 66 69 | 65 6c 64 0d 70 75 74 20 |Date" fi|eld.put |
|00004a40| 66 69 65 6c 64 20 22 53 | 65 6c 65 63 74 65 64 20 |field "S|elected |
|00004a50| 44 61 74 65 22 20 69 6e | 74 6f 20 66 53 65 6c 65 |Date" in|to fSele|
|00004a60| 63 74 65 64 44 61 74 65 | 0d 63 6f 6e 76 65 72 74 |ctedDate|.convert|
|00004a70| 20 66 53 65 6c 65 63 74 | 65 64 44 61 74 65 20 74 | fSelect|edDate t|
|00004a80| 6f 20 6c 6f 6e 67 20 64 | 61 74 65 0d 46 69 6e 64 |o long d|ate.Find|
|00004a90| 43 61 6c 65 6e 64 61 72 | 44 61 74 65 20 66 53 65 |Calendar|Date fSe|
|00004aa0| 6c 65 63 74 65 64 44 61 | 74 65 0d 65 6c 73 65 0d |lectedDa|te.else.|
|00004ab0| 67 65 74 20 74 68 65 20 | 6c 6f 6e 67 20 64 61 74 |get the |long dat|
|00004ac0| 65 0d 46 69 6e 64 43 61 | 6c 65 6e 64 61 72 44 61 |e.FindCa|lendarDa|
|00004ad0| 74 65 20 69 74 20 2d 2d | 61 20 6e 65 77 20 74 72 |te it --|a new tr|
|00004ae0| 61 6e 73 69 74 69 76 65 | 20 76 65 72 62 21 0d 65 |ansitive| verb!.e|
|00004af0| 6e 64 20 69 66 0d 0d 65 | 6e 64 20 50 72 6f 63 65 |nd if..e|nd Proce|
|00004b00| 65 64 54 6f 46 69 72 73 | 74 0d 0d 0d 6f 6e 20 6f |edToFirs|t...on o|
|00004b10| 70 65 6e 53 74 61 63 6b | 0d 0d 67 6c 6f 62 61 6c |penStack|..global|
|00004b20| 20 66 54 61 72 67 65 74 | 46 69 65 6c 64 2c 20 66 | fTarget|Field, f|
|00004b30| 4f 62 6a 65 63 74 69 76 | 65 44 61 74 65 2c 20 66 |Objectiv|eDate, f|
|00004b40| 53 65 6c 65 63 74 65 64 | 44 61 74 65 0d 0d 2d 2d |Selected|Date..--|
|00004b50| 70 72 65 70 61 72 65 20 | 74 6f 20 72 65 74 75 72 |prepare |to retur|
|00004b60| 6e 20 74 6f 20 77 68 69 | 63 68 65 76 65 72 20 73 |n to whi|chever s|
|00004b70| 74 61 63 6b 20 63 61 6c | 6c 65 64 0d 70 75 73 68 |tack cal|led.push|
|00004b80| 20 72 65 63 65 6e 74 20 | 63 61 72 64 0d 0d 2d 2d | recent |card..--|
|00004b90| 62 65 20 73 75 72 65 20 | 79 6f 75 20 63 61 6e 20 |be sure |you can |
|00004ba0| 61 6c 6c 20 73 65 65 20 | 74 68 6f 73 65 20 63 72 |all see |those cr|
|00004bb0| 65 64 69 74 73 21 0d 68 | 69 64 65 20 6d 65 73 73 |edits!.h|ide mess|
|00004bc0| 61 67 65 20 77 69 6e 64 | 6f 77 0d 0d 2d 2d 69 66 |age wind|ow..--if|
|00004bd0| 20 74 68 65 20 75 73 65 | 72 20 68 61 73 20 73 70 | the use|r has sp|
|00004be0| 65 63 69 66 69 65 64 20 | 61 20 64 61 74 65 20 6f |ecified |a date o|
|00004bf0| 6e 20 65 6e 74 72 79 2c | 20 75 73 65 20 74 68 61 |n entry,| use tha|
|00004c00| 74 20 64 61 74 65 0d 2d | 2d 74 6f 20 73 65 6c 65 |t date.-|-to sele|
|00004c10| 63 74 20 74 68 65 20 6e | 65 78 74 20 63 61 6c 65 |ct the n|ext cale|
|00004c20| 6e 64 61 72 20 64 69 73 | 70 6c 61 79 65 64 0d 69 |ndar dis|played.i|
|00004c30| 66 20 66 4f 62 6a 65 63 | 74 69 76 65 44 61 74 65 |f fObjec|tiveDate|
|00004c40| 20 69 73 20 6e 6f 74 20 | 65 6d 70 74 79 20 20 2d | is not |empty  -|
|00004c50| 2d 69 66 66 69 74 20 65 | 6d 70 74 65 68 2c 20 64 |-iffit e|mpteh, d|
|00004c60| 6f 61 6e 20 77 6f 72 72 | 65 68 20 62 6f 75 64 69 |oan worr|eh boudi|
|00004c70| 74 2e 2e 2e 21 0d 74 68 | 65 6e 20 70 75 74 20 66 |t...!.th|en put f|
|00004c80| 4f 62 6a 65 63 74 69 76 | 65 44 61 74 65 20 69 6e |Objectiv|eDate in|
|00004c90| 74 6f 20 66 53 65 6c 65 | 63 74 65 64 44 61 74 65 |to fSele|ctedDate|
|00004ca0| 0d 65 6c 73 65 20 70 75 | 74 20 74 68 65 20 6c 6f |.else pu|t the lo|
|00004cb0| 6e 67 20 64 61 74 65 20 | 69 6e 74 6f 20 66 53 65 |ng date |into fSe|
|00004cc0| 6c 65 63 74 65 64 44 61 | 74 65 20 2d 2d 20 75 73 |lectedDa|te -- us|
|00004cd0| 65 20 74 6f 64 61 79 27 | 73 20 64 61 74 65 20 69 |e today'|s date i|
|00004ce0| 6e 73 74 65 61 64 0d 70 | 75 74 20 65 6d 70 74 79 |nstead.p|ut empty|
|00004cf0| 20 69 6e 74 6f 20 66 4f | 62 6a 65 63 74 69 76 65 | into fO|bjective|
|00004d00| 44 61 74 65 20 2d 2d 20 | 63 6c 65 61 72 20 75 73 |Date -- |clear us|
|00004d10| 65 72 20 73 70 65 63 69 | 66 69 65 64 20 64 61 74 |er speci|fied dat|
|00004d20| 65 0d 63 6f 6e 76 65 72 | 74 20 66 53 65 6c 65 63 |e.conver|t fSelec|
|00004d30| 74 65 64 44 61 74 65 20 | 74 6f 20 6c 6f 6e 67 20 |tedDate |to long |
|00004d40| 64 61 74 65 20 2d 2d 20 | 6d 61 6b 65 20 73 75 72 |date -- |make sur|
|00004d50| 65 20 77 65 20 68 61 76 | 65 20 74 68 65 20 72 69 |e we hav|e the ri|
|00004d60| 67 68 74 20 66 6f 72 6d | 61 74 0d 70 75 74 20 66 |ght form|at.put f|
|00004d70| 53 65 6c 65 63 74 65 64 | 44 61 74 65 20 69 6e 74 |Selected|Date int|
|00004d80| 6f 20 66 69 65 6c 64 20 | 22 53 65 6c 65 63 74 65 |o field |"Selecte|
|00004d90| 64 20 44 61 74 65 22 20 | 2d 2d 20 73 68 6f 77 20 |d Date" |-- show |
|00004da0| 69 74 20 75 70 70 65 72 | 20 72 69 67 68 74 0d 0d |it upper| right..|
|00004db0| 2d 2d 20 73 65 65 20 69 | 66 20 77 65 20 73 68 6f |-- see i|f we sho|
|00004dc0| 75 6c 64 20 70 72 6f 63 | 65 65 64 20 6f 72 20 77 |uld proc|eed or w|
|00004dd0| 61 69 74 20 66 6f 72 20 | 74 68 65 20 75 73 65 72 |ait for |the user|
|00004de0| 20 74 6f 20 72 65 61 64 | 20 61 6c 6c 20 74 68 61 | to read| all tha|
|00004df0| 74 2e 2e 2e 0d 69 66 20 | 74 68 65 20 6e 75 6d 62 |t....if |the numb|
|00004e00| 65 72 20 6f 66 20 74 68 | 69 73 20 63 61 72 64 20 |er of th|is card |
|00004e10| 69 73 20 31 20 2d 2d 64 | 6f 20 74 68 69 73 20 74 |is 1 --d|o this t|
|00004e20| 65 73 74 20 61 74 20 74 | 68 65 20 66 69 72 73 74 |est at t|he first|
|00004e30| 20 63 61 72 64 20 6f 6e | 6c 79 0d 74 68 65 6e 0d | card on|ly.then.|
|00004e40| 69 66 20 63 61 72 64 20 | 66 69 65 6c 64 20 22 53 |if card |field "S|
|00004e50| 6b 69 70 20 49 6e 74 72 | 6f 64 75 63 74 69 6f 6e |kip Intr|oduction|
|00004e60| 22 20 69 73 20 74 72 75 | 65 0d 74 68 65 6e 0d 50 |" is tru|e.then.P|
|00004e70| 72 6f 63 65 65 64 54 6f | 46 69 72 73 74 0d 65 6e |roceedTo|First.en|
|00004e80| 64 20 69 66 0d 65 6e 64 | 20 69 66 0d 2d 2d 4e 6f |d if.end| if.--No|
|00004e90| 74 65 3a 0d 2d 2d 64 6f | 69 6e 67 20 74 68 69 73 |te:.--do|ing this|
|00004ea0| 20 74 65 73 74 20 61 74 | 20 74 68 65 20 66 69 72 | test at| the fir|
|00004eb0| 73 74 20 63 61 72 64 20 | 6f 6e 6c 79 20 70 72 65 |st card |only pre|
|00004ec0| 76 65 6e 74 73 20 6d 69 | 6e 6f 72 20 70 72 6f 62 |vents mi|nor prob|
|00004ed0| 6c 65 6d 73 20 77 69 74 | 68 0d 2d 2d 72 65 74 75 |lems wit|h.--retu|
|00004ee0| 72 6e 69 6e 67 20 74 6f | 20 74 68 69 73 20 73 74 |rning to| this st|
|00004ef0| 61 63 6b 20 62 79 20 74 | 68 65 20 22 52 65 63 65 |ack by t|he "Rece|
|00004f00| 6e 74 20 43 61 72 64 22 | 20 6f 72 20 6f 74 68 65 |nt Card"| or othe|
|00004f10| 72 20 6d 65 74 68 6f 64 | 73 0d 2d 2d 28 22 4f 6b |r method|s.--("Ok|
|00004f20| 61 79 2e 20 20 49 6d 70 | 6f 72 74 61 6e 74 20 73 |ay.  Imp|ortant s|
|00004f30| 61 66 65 74 79 20 74 69 | 70 20 2d 2d 20 54 68 61 |afety ti|p -- Tha|
|00004f40| 6e 6b 73 2e 2e 2e 22 29 | 0d 0d 65 6e 64 20 6f 70 |nks...")|..end op|
|00004f50| 65 6e 53 74 61 63 6b 0d | 0d 0d 6f 6e 20 46 69 6e |enStack.|..on Fin|
|00004f60| 64 43 61 6c 65 6e 64 61 | 72 44 61 74 65 20 66 44 |dCalenda|rDate fD|
|00004f70| 61 74 65 0d 2d 2d 67 69 | 76 65 6e 20 61 20 64 61 |ate.--gi|ven a da|
|00004f80| 74 65 2c 20 66 69 6e 64 | 20 74 68 65 20 63 61 6c |te, find| the cal|
|00004f90| 65 6e 64 61 72 20 66 6f | 72 20 69 74 20 61 6e 64 |endar fo|r it and|
|00004fa0| 20 62 6f 78 20 69 74 20 | 6f 6e 20 74 68 61 74 20 | box it |on that |
|00004fb0| 63 61 6c 65 6e 64 61 72 | 0d 0d 70 75 74 20 66 44 |calendar|..put fD|
|00004fc0| 61 74 65 20 69 6e 74 6f | 20 66 44 61 74 65 54 65 |ate into| fDateTe|
|00004fd0| 6d 70 20 2d 2d 74 61 6b | 65 20 6e 6f 20 63 68 61 |mp --tak|e no cha|
|00004fe0| 6e 63 65 73 0d 63 6f 6e | 76 65 72 74 20 66 44 61 |nces.con|vert fDa|
|00004ff0| 74 65 54 65 6d 70 20 74 | 6f 20 64 61 74 65 69 74 |teTemp t|o dateit|
|00005000| 65 6d 73 0d 70 75 74 20 | 69 74 65 6d 20 31 20 6f |ems.put |item 1 o|
|00005010| 66 20 66 44 61 74 65 54 | 65 6d 70 20 69 6e 74 6f |f fDateT|emp into|
|00005020| 20 66 59 65 61 72 54 65 | 6d 70 0d 0d 2d 2d 69 66 | fYearTe|mp..--if|
|00005030| 20 77 65 20 68 61 76 65 | 20 74 6f 20 67 6f 20 74 | we have| to go t|
|00005040| 6f 20 61 6e 6f 74 68 65 | 72 20 79 65 61 72 2c 20 |o anothe|r year, |
|00005050| 64 6f 20 73 6f 2c 20 61 | 6e 64 0d 2d 2d 6d 61 6b |do so, a|nd.--mak|
|00005060| 65 20 69 74 20 63 6c 65 | 61 72 20 74 6f 20 74 68 |e it cle|ar to th|
|00005070| 65 20 75 73 65 72 20 77 | 65 20 61 72 65 0d 69 66 |e user w|e are.if|
|00005080| 20 66 59 65 61 72 54 65 | 6d 70 20 3c 3e 20 66 69 | fYearTe|mp <> fi|
|00005090| 65 6c 64 20 22 43 61 6c | 65 6e 64 61 72 20 59 65 |eld "Cal|endar Ye|
|000050a0| 61 72 22 0d 74 68 65 6e | 0d 76 69 73 75 61 6c 20 |ar".then|.visual |
|000050b0| 64 69 73 73 6f 6c 76 65 | 20 74 6f 20 67 72 65 79 |dissolve| to grey|
|000050c0| 0d 46 69 6e 64 59 65 61 | 72 54 65 6d 70 6c 61 74 |.FindYea|rTemplat|
|000050d0| 65 20 66 59 65 61 72 54 | 65 6d 70 0d 65 6e 64 20 |e fYearT|emp.end |
|000050e0| 69 66 0d 0d 2d 2d 61 73 | 73 65 6d 62 6c 65 20 64 |if..--as|semble d|
|000050f0| 61 74 65 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |ate info|rmation |
|00005100| 74 6f 20 6c 6f 63 61 74 | 65 20 74 68 65 20 64 61 |to locat|e the da|
|00005110| 74 65 20 77 69 74 68 20 | 74 68 65 20 46 69 6e 64 |te with |the Find|
|00005120| 20 63 6f 6d 6d 61 6e 64 | 0d 70 75 74 20 69 74 65 | command|.put ite|
|00005130| 6d 20 32 20 6f 66 20 66 | 44 61 74 65 54 65 6d 70 |m 2 of f|DateTemp|
|00005140| 20 69 6e 74 6f 20 66 4d | 6f 6e 74 68 4e 75 6d 62 | into fM|onthNumb|
|00005150| 65 72 0d 70 75 74 20 22 | 4d 6f 6e 74 68 20 22 20 |er.put "|Month " |
|00005160| 26 20 66 4d 6f 6e 74 68 | 4e 75 6d 62 65 72 20 69 |& fMonth|Number i|
|00005170| 6e 74 6f 20 66 4d 6f 6e | 74 68 4e 61 6d 65 46 69 |nto fMon|thNameFi|
|00005180| 65 6c 64 0d 70 75 74 20 | 66 69 65 6c 64 20 66 4d |eld.put |field fM|
|00005190| 6f 6e 74 68 4e 61 6d 65 | 46 69 65 6c 64 20 69 6e |onthName|Field in|
|000051a0| 74 6f 20 66 4d 6f 6e 74 | 68 54 65 6d 70 0d 70 75 |to fMont|hTemp.pu|
|000051b0| 74 20 69 74 65 6d 20 33 | 20 6f 66 20 66 44 61 74 |t item 3| of fDat|
|000051c0| 65 54 65 6d 70 20 69 6e | 74 6f 20 66 44 61 74 65 |eTemp in|to fDate|
|000051d0| 4e 75 6d 62 65 72 0d 0d | 2d 2d 75 73 65 20 74 68 |Number..|--use th|
|000051e0| 65 20 46 69 6e 64 20 63 | 6f 6d 6d 61 6e 64 20 74 |e Find c|ommand t|
|000051f0| 6f 20 62 6f 78 20 74 68 | 65 20 64 61 74 65 20 69 |o box th|e date i|
|00005200| 6e 20 74 68 65 20 70 72 | 6f 70 65 72 20 66 69 65 |n the pr|oper fie|
|00005210| 6c 64 0d 66 69 6e 64 20 | 66 44 61 74 65 4e 75 6d |ld.find |fDateNum|
|00005220| 62 65 72 20 69 6e 20 66 | 69 65 6c 64 20 66 4d 6f |ber in f|ield fMo|
|00005230| 6e 74 68 54 65 6d 70 0d | 0d 65 6e 64 20 46 69 6e |nthTemp.|.end Fin|
|00005240| 64 43 61 6c 65 6e 64 61 | 72 44 61 74 65 0d 0d 0d |dCalenda|rDate...|
|00005250| 6f 6e 20 65 6e 74 65 72 | 4b 65 79 0d 2d 2d 70 65 |on enter|Key.--pe|
|00005260| 72 6d 69 74 20 6b 65 79 | 73 74 72 6f 6b 65 20 72 |rmit key|stroke r|
|00005270| 65 74 75 72 6e 20 74 6f | 20 74 68 65 20 63 61 6c |eturn to| the cal|
|00005280| 6c 69 6e 67 20 73 74 61 | 63 6b 0d 0d 63 6c 69 63 |ling sta|ck..clic|
|00005290| 6b 20 61 74 20 6c 6f 63 | 20 6f 66 20 62 6b 67 6e |k at loc| of bkgn|
|000052a0| 64 20 62 75 74 74 6f 6e | 20 22 52 65 74 75 72 6e |d button| "Return|
|000052b0| 22 0d 0d 65 6e 64 20 65 | 6e 74 65 72 4b 65 79 0d |"..end e|nterKey.|
|000052c0| 0d 0d 6f 6e 20 63 61 6e | 74 55 6e 64 65 72 73 74 |..on can|tUnderst|
|000052d0| 61 6e 64 0d 62 65 65 70 | 0d 65 6e 64 20 63 61 6e |and.beep|.end can|
|000052e0| 74 55 6e 64 65 72 73 74 | 61 6e 64 0d 00 00 00 00 |tUnderst|and.....|
|000052f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005300| 00 00 00 a0 42 4d 41 50 | 00 00 0f 47 00 00 00 00 |....BMAP|...G....|
|00005310| 00 01 00 00 00 00 00 00 | 01 56 02 00 00 00 00 00 |........|.V......|
|00005320| 01 56 02 00 00 00 00 00 | 01 56 02 00 00 00 00 00 |.V......|.V......|
|00005330| 00 00 00 00 00 00 00 00 | 00 00 00 5c 60 aa aa aa |........|...\`...|
|00005340| aa b5 50 e3 19 06 60 55 | 55 55 55 55 50 e3 19 05 |..P...`U|UUUUP...|
|00005350| bf 86 ab 86 8c 70 ff ff | ff ff ef f8 04 e3 27 20 |.....p..|......' |
|00005360| 05 8a 50 ff ff ff ff e0 | e3 1a 03 86 89 60 55 55 |..P.....|.....`UU|
|00005370| 55 55 55 50 e3 19 05 60 | aa aa aa aa b5 50 e3 19 |UUUP...`|.....P..|
|00005380| 06 bf 86 bf 86 bf 86 bf | 86 bf 86 bf 86 bf 86 bf |........|........|
|00005390| 86 bf 86 ae 86 ff ff e0 | 00 1c 60 c0 e3 16 03 8b |........|..`.....|
|000053a0| 00 00 03 00 42 4b 47 44 | 00 00 1e c3 00 00 1f 7b |....BKGD|.......{|
|000053b0| 00 00 00 00 00 00 00 02 | 00 00 24 87 00 00 0e b3 |........|..$.....|
|000053c0| 00 07 00 35 00 00 02 a6 | 00 00 00 00 00 00 00 2a |...5....|.......*|
|000053d0| 00 1e 02 80 00 15 00 06 | 00 27 00 85 00 00 00 00 |........|.'......|
|000053e0| 00 00 00 00 00 03 00 0c | 00 00 00 10 59 65 61 72 |........|....Year|
|000053f0| 20 54 79 70 65 00 00 00 | 00 a2 00 2e 01 00 01 3b | Type...|.......;|
|00005400| 00 01 01 56 00 22 20 00 | 00 00 03 f4 00 01 00 00 |...V." .|........|
|00005410| 00 0c 00 00 00 10 52 65 | 74 75 72 6e 00 00 6f 6e |......Re|turn..on|
|00005420| 20 6d 6f 75 73 65 55 70 | 0d 67 6c 6f 62 61 6c 20 | mouseUp|.global |
|00005430| 66 53 65 6c 65 63 74 65 | 64 44 61 74 65 2c 20 66 |fSelecte|dDate, f|
|00005440| 4f 62 6a 65 63 74 69 76 | 65 44 61 74 65 0d 70 75 |Objectiv|eDate.pu|
|00005450| 74 20 66 53 65 6c 65 63 | 74 65 64 44 61 74 65 20 |t fSelec|tedDate |
|00005460| 69 6e 74 6f 20 66 4f 62 | 6a 65 63 74 69 76 65 44 |into fOb|jectiveD|
|00005470| 61 74 65 0d 76 69 73 75 | 61 6c 20 64 69 73 73 6f |ate.visu|al disso|
|00005480| 6c 76 65 0d 70 6f 70 20 | 63 61 72 64 0d 65 6e 64 |lve.pop |card.end|
|00005490| 20 6d 6f 75 73 65 55 70 | 0d 00 00 34 00 31 01 00 | mouseUp|...4.1..|
|000054a0| 00 14 00 92 00 2c 01 26 | 80 00 00 00 00 00 00 01 |.....,.&|........|
|000054b0| 00 00 00 0c 00 00 00 10 | 4c 79 66 65 54 79 6d 65 |........|LyfeTyme|
|000054c0| aa 20 43 61 6c 65 6e 64 | 61 72 00 00 00 00 00 36 |. Calend|ar.....6|
|000054d0| 00 32 01 00 00 14 01 25 | 00 2c 01 be 80 00 00 00 |.2.....%|.,......|
|000054e0| 00 00 00 01 00 00 00 0c | 00 00 00 10 49 6e 74 65 |........|....Inte|
|000054f0| 72 66 61 63 65 20 49 6e | 66 6f 72 6d 61 74 69 6f |rface In|formatio|
|00005500| 6e 00 00 00 00 60 00 33 | 01 00 00 14 00 47 00 2c |n....`.3|.....G.,|
|00005510| 00 5f 20 00 00 00 03 f6 | 00 01 00 00 00 0c 00 00 |._ .....|........|
|00005520| 00 10 50 72 65 76 20 59 | 65 61 72 00 00 6f 6e 20 |..Prev Y|ear..on |
|00005530| 6d 6f 75 73 65 55 70 0d | 67 6f 20 74 6f 20 70 72 |mouseUp.|go to pr|
|00005540| 65 76 20 63 61 72 64 20 | 6f 66 20 74 68 69 73 20 |ev card |of this |
|00005550| 62 6b 67 6e 64 0d 65 6e | 64 20 6d 6f 75 73 65 55 |bkgnd.en|d mouseU|
|00005560| 70 0d 00 00 00 60 00 34 | 01 00 00 14 00 5f 00 2c |p....`.4|....._.,|
|00005570| 00 77 20 00 00 00 03 f5 | 00 01 00 00 00 0c 00 00 |.w .....|........|
|00005580| 00 10 4e 65 78 74 20 43 | 61 72 64 00 00 6f 6e 20 |..Next C|ard..on |
|00005590| 6d 6f 75 73 65 55 70 0d | 67 6f 20 74 6f 20 6e 65 |mouseUp.|go to ne|
|000055a0| 78 74 20 63 61 72 64 20 | 6f 66 20 74 68 69 73 20 |xt card |of this |
|000055b0| 62 6b 67 6e 64 0d 65 6e | 64 20 6d 6f 75 73 65 55 |bkgnd.en|d mouseU|
|000055c0| 70 0d 00 00 00 b0 00 35 | 01 00 00 00 00 2d 00 11 |p......5|.....-..|
|000055d0| 00 84 80 01 00 00 00 00 | 00 00 00 14 00 0a 00 00 |........|........|
|000055e0| 00 0d 56 65 72 73 69 6f | 6e 20 31 2e 31 00 00 6f |..Versio|n 1.1..o|
|000055f0| 6e 20 6d 6f 75 73 65 55 | 70 0d 2d 2d 56 65 72 73 |n mouseU|p.--Vers|
|00005600| 69 6f 6e 20 31 2e 31 0d | 2d 2d 41 70 72 69 6c 20 |ion 1.1.|--April |
|00005610| 31 33 2c 20 31 39 38 39 | 0d 2d 2d 0d 2d 2d 53 65 |13, 1989|.--.--Se|
|00005620| 65 20 74 68 65 20 73 63 | 72 69 70 74 20 6f 66 20 |e the sc|ript of |
|00005630| 74 68 65 20 22 56 65 72 | 73 69 6f 6e 22 20 62 75 |the "Ver|sion" bu|
|00005640| 74 74 6f 6e 20 66 6f 72 | 20 6e 6f 74 65 73 20 6f |tton for| notes o|
|00005650| 6e 20 72 65 63 65 6e 74 | 20 72 65 76 69 73 69 6f |n recent| revisio|
|00005660| 6e 73 2e 0d 2d 2d 0d 65 | 6e 64 20 6d 6f 75 73 65 |ns..--.e|nd mouse|
|00005670| 55 70 0d 00 4c 54 20 43 | 61 6c 65 6e 64 61 72 20 |Up..LT C|alendar |
|00005680| 49 6e 74 65 72 66 61 63 | 65 20 49 6e 66 6f 00 00 |Interfac|e Info..|
|00005690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000056a0| 00 00 00 a0 42 4d 41 50 | 00 00 1f 7b 00 00 00 00 |....BMAP|...{....|
|000056b0| 00 01 00 00 00 00 00 00 | 01 56 02 00 00 00 00 00 |........|.V......|
|000056c0| 01 56 02 00 00 00 00 00 | 01 56 02 00 00 00 00 00 |.V......|.V......|
|000056d0| 00 00 00 00 00 00 00 00 | 00 00 00 5c 60 aa aa aa |........|...\`...|
|000056e0| aa b5 50 e3 19 06 60 55 | 55 55 55 55 50 e3 19 05 |..P...`U|UUUUP...|
|000056f0| bf 86 ab 86 8c 70 ff ff | ff ff ef f8 04 e3 27 20 |.....p..|......' |
|00005700| 05 8a 50 ff ff ff ff e0 | e3 1a 03 86 89 60 55 55 |..P.....|.....`UU|
|00005710| 55 55 55 50 e3 19 05 60 | aa aa aa aa b5 50 e3 19 |UUUP...`|.....P..|
|00005720| 06 bf 86 bf 86 bf 86 bf | 86 bf 86 bf 86 bf 86 bf |........|........|
|00005730| 86 bf 86 ae 86 88 43 88 | e3 15 06 20 55 55 c1 55 |......C.|... UU.U|
|00005740| 00 00 02 80 42 4b 47 44 | 00 00 24 87 00 00 25 79 |....BKGD|..$...%y|
|00005750| 00 00 00 00 00 00 00 03 | 00 00 0e b3 00 00 1e c3 |........|........|
|00005760| 00 04 00 04 00 00 01 d2 | 00 00 00 00 00 00 00 a2 |........|........|
|00005770| 00 01 01 00 01 3b 00 00 | 01 56 00 22 20 00 00 00 |.....;..|.V." ...|
|00005780| 03 f4 00 01 00 00 00 0c | 00 00 00 10 50 72 65 76 |........|....Prev|
|00005790| 00 00 6f 6e 20 6d 6f 75 | 73 65 55 70 0d 67 6c 6f |..on mou|seUp.glo|
|000057a0| 62 61 6c 20 66 53 65 6c | 65 63 74 65 64 44 61 74 |bal fSel|ectedDat|
|000057b0| 65 2c 20 66 4f 62 6a 65 | 63 74 69 76 65 44 61 74 |e, fObje|ctiveDat|
|000057c0| 65 0d 70 75 74 20 66 53 | 65 6c 65 63 74 65 64 44 |e.put fS|electedD|
|000057d0| 61 74 65 20 69 6e 74 6f | 20 66 4f 62 6a 65 63 74 |ate into| fObject|
|000057e0| 69 76 65 44 61 74 65 0d | 76 69 73 75 61 6c 20 69 |iveDate.|visual i|
|000057f0| 72 69 73 20 63 6c 6f 73 | 65 0d 70 6f 70 20 63 61 |ris clos|e.pop ca|
|00005800| 72 64 0d 65 6e 64 20 6d | 6f 75 73 65 55 70 0d 00 |rd.end m|ouseUp..|
|00005810| 00 6e 00 02 01 00 01 3c | 01 e1 01 56 02 00 20 01 |.n.....<|...V.. .|
|00005820| 00 00 0a aa 00 01 00 00 | 00 0c 00 00 00 10 52 65 |........|......Re|
|00005830| 74 75 72 6e 00 00 6f 6e | 20 6d 6f 75 73 65 55 70 |turn..on| mouseUp|
|00005840| 0d 76 69 73 75 61 6c 20 | 73 63 72 6f 6c 6c 20 75 |.visual |scroll u|
|00005850| 70 0d 67 6f 20 74 6f 20 | 6e 65 78 74 20 63 61 72 |p.go to |next car|
|00005860| 64 20 6f 66 20 74 68 69 | 73 20 62 6b 67 6e 64 0d |d of thi|s bkgnd.|
|00005870| 65 6e 64 20 6d 6f 75 73 | 65 55 70 0d 00 00 00 6e |end mous|eUp....n|
|00005880| 00 03 01 00 01 22 01 e1 | 01 3c 02 00 20 00 00 00 |....."..|.<.. ...|
|00005890| 71 5b 00 01 00 00 00 0c | 00 00 00 10 4e 65 78 74 |q[......|....Next|
|000058a0| 00 00 6f 6e 20 6d 6f 75 | 73 65 55 70 0d 76 69 73 |..on mou|seUp.vis|
|000058b0| 75 61 6c 20 73 63 72 6f | 6c 6c 20 64 6f 77 6e 0d |ual scro|ll down.|
|000058c0| 67 6f 20 74 6f 20 50 72 | 65 76 20 63 61 72 64 20 |go to Pr|ev card |
|000058d0| 6f 66 20 74 68 69 73 20 | 62 6b 67 6e 64 0d 65 6e |of this |bkgnd.en|
|000058e0| 64 20 6d 6f 75 73 65 55 | 70 0d 00 00 00 54 00 04 |d mouseU|p....T..|
|000058f0| 01 00 01 20 00 00 01 3c | 00 22 20 01 00 00 54 c4 |... ...<|." ...T.|
|00005900| 00 01 00 00 00 0c 00 00 | 00 10 48 6f 6d 65 00 00 |........|..Home..|
|00005910| 6f 6e 20 6d 6f 75 73 65 | 55 70 0d 76 69 73 75 61 |on mouse|Up.visua|
|00005920| 6c 20 64 69 73 73 6f 6c | 76 65 0d 67 6f 20 68 6f |l dissol|ve.go ho|
|00005930| 6d 65 0d 65 6e 64 20 6d | 6f 75 73 65 55 70 0d 00 |me.end m|ouseUp..|
|00005940| 4c 79 66 65 54 79 6d 65 | aa 20 53 68 61 72 65 77 |LyfeTyme|. Sharew|
|00005950| 61 72 65 00 6f 6e 20 6f | 70 65 6e 43 61 72 64 0d |are.on o|penCard.|
|00005960| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 66 49 6e |.repeat |with fIn|
|00005970| 64 65 78 20 3d 20 31 20 | 74 6f 20 34 0d 73 68 6f |dex = 1 |to 4.sho|
|00005980| 77 20 62 6b 67 6e 64 20 | 62 75 74 74 6f 6e 20 66 |w bkgnd |button f|
|00005990| 49 6e 64 65 78 0d 65 6e | 64 20 72 65 70 65 61 74 |Index.en|d repeat|
|000059a0| 0d 0d 65 6e 64 20 6f 70 | 65 6e 43 61 72 64 0d 0d |..end op|enCard..|
|000059b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059c0| 00 00 00 40 42 4d 41 50 | 00 00 25 79 00 00 00 00 |...@BMAP|..%y....|
|000059d0| 00 01 00 00 00 00 00 00 | 01 56 02 00 00 00 00 00 |........|.V......|
|000059e0| 01 56 02 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.V......|........|
|000059f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 80 0f e0 08 |........|........|
|00005a00| 00 00 0b 60 43 41 52 44 | 00 00 10 17 00 00 11 11 |...`CARD|........|
|00005a10| 40 00 00 00 00 00 00 00 | 00 00 00 00 00 00 2b 0c |@.......|......+.|
|00005a20| 00 00 0e b3 00 0b 00 11 | 00 00 03 d8 00 14 00 00 |........|........|
|00005a30| 05 b7 00 22 00 02 02 01 | 00 2c 00 6e 00 4e 01 bb |..."....|.,.n.N..|
|00005a40| 00 00 00 00 00 00 00 01 | 00 14 00 18 15 00 00 20 |........|....... |
|00005a50| 00 00 00 00 00 22 00 03 | 02 01 00 4e 00 6e 00 74 |....."..|...N.n.t|
|00005a60| 01 bb 00 00 00 00 00 00 | 00 01 00 14 00 0e 00 00 |........|........|
|00005a70| 00 12 00 00 00 00 00 22 | 00 04 02 01 00 4b 01 85 |......."|.....K..|
|00005a80| 00 5c 01 eb 00 00 00 00 | 00 00 00 01 00 14 00 0c |.\......|........|
|00005a90| 02 00 00 10 00 00 00 00 | 00 22 00 06 02 01 00 77 |........|.".....w|
|00005aa0| 00 44 01 3c 01 e6 00 00 | 00 00 00 00 00 01 00 14 |.D.<....|........|
|00005ab0| 00 0c 00 00 00 0d 00 00 | 00 00 00 4e 00 01 01 00 |........|...N....|
|00005ac0| 00 2d 00 2c 01 56 01 fe | 00 00 00 00 00 00 00 01 |.-.,.V..|........|
|00005ad0| 00 14 00 0c 00 00 00 10 | 41 64 76 61 6e 63 65 00 |........|Advance.|
|00005ae0| 00 6f 6e 20 6d 6f 75 73 | 65 55 70 0d 50 72 6f 63 |.on mous|eUp.Proc|
|00005af0| 65 65 64 54 6f 46 69 72 | 73 74 0d 65 6e 64 20 6d |eedToFir|st.end m|
|00005b00| 6f 75 73 65 55 70 0d 00 | 01 46 00 05 01 00 01 3e |ouseUp..|.F.....>|
|00005b10| 01 52 01 54 01 f9 80 05 | 00 00 00 00 00 01 00 14 |.R.T....|........|
|00005b20| 00 0c 00 00 00 10 42 72 | 65 65 7a 65 20 42 79 20 |......Br|eeze By |
|00005b30| 54 68 69 73 20 43 61 72 | 64 20 4f 6e 20 45 6e 74 |This Car|d On Ent|
|00005b40| 72 79 00 00 6f 6e 20 6d | 6f 75 73 65 55 70 0d 69 |ry..on m|ouseUp.i|
|00005b50| 66 20 63 61 72 64 20 66 | 69 65 6c 64 20 22 53 6b |f card f|ield "Sk|
|00005b60| 69 70 20 49 6e 74 72 6f | 64 75 63 74 69 6f 6e 22 |ip Intro|duction"|
|00005b70| 20 69 73 20 74 72 75 65 | 0d 74 68 65 6e 0d 70 75 | is true|.then.pu|
|00005b80| 74 20 22 66 61 6c 73 65 | 22 20 69 6e 74 6f 20 63 |t "false|" into c|
|00005b90| 61 72 64 20 66 69 65 6c | 64 20 22 53 6b 69 70 20 |ard fiel|d "Skip |
|00005ba0| 49 6e 74 72 6f 64 75 63 | 74 69 6f 6e 22 0d 65 6c |Introduc|tion".el|
|00005bb0| 73 65 0d 70 75 74 20 22 | 74 72 75 65 22 20 69 6e |se.put "|true" in|
|00005bc0| 74 6f 20 63 61 72 64 20 | 66 69 65 6c 64 20 22 53 |to card |field "S|
|00005bd0| 6b 69 70 20 49 6e 74 72 | 6f 64 75 63 74 69 6f 6e |kip Intr|oduction|
|00005be0| 22 0d 65 6e 64 20 69 66 | 0d 73 65 74 20 68 69 6c |".end if|.set hil|
|00005bf0| 69 74 65 20 6f 66 20 62 | 75 74 74 6f 6e 20 22 42 |ite of b|utton "B|
|00005c00| 72 65 65 7a 65 20 42 79 | 20 54 68 69 73 20 43 61 |reeze By| This Ca|
|00005c10| 72 64 20 6f 6e 20 45 6e | 74 72 79 22 20 74 6f 20 |rd on En|try" to |
|00005c20| 63 61 72 64 20 c2 0d 66 | 69 65 6c 64 20 22 53 6b |card ..f|ield "Sk|
|00005c30| 69 70 20 49 6e 74 72 6f | 64 75 63 74 69 6f 6e 22 |ip Intro|duction"|
|00005c40| 0d 65 6e 64 20 6d 6f 75 | 73 65 55 70 0d 00 00 32 |.end mou|seUp...2|
|00005c50| 00 0a 02 80 01 38 01 5e | 01 4e 01 f7 00 00 00 00 |.....8.^|.N......|
|00005c60| 00 00 00 00 00 03 00 0c | 00 00 00 10 53 6b 69 70 |........|....Skip|
|00005c70| 20 49 6e 74 72 6f 64 75 | 63 74 69 6f 6e 00 00 00 | Introdu|ction...|
|00005c80| 00 84 00 08 01 00 01 40 | 00 33 01 53 00 8d a0 04 |.......@|.3.S....|
|00005c90| 00 00 00 00 00 01 00 14 | 00 0c 00 00 00 10 53 68 |........|......Sh|
|00005ca0| 61 72 65 57 61 72 65 20 | 49 6e 66 6f 00 00 6f 6e |areWare |Info..on|
|00005cb0| 20 6d 6f 75 73 65 55 70 | 0d 70 75 73 68 20 63 61 | mouseUp|.push ca|
|00005cc0| 72 64 0d 76 69 73 75 61 | 6c 20 69 72 69 73 20 6f |rd.visua|l iris o|
|00005cd0| 70 65 6e 0d 67 6f 20 74 | 6f 20 62 6b 67 6e 64 20 |pen.go t|o bkgnd |
|00005ce0| 22 4c 79 66 65 54 79 6d | 65 aa 20 53 68 61 72 65 |"LyfeTym|e. Share|
|00005cf0| 77 61 72 65 22 0d 65 6e | 64 20 6d 6f 75 73 65 55 |ware".en|d mouseU|
|00005d00| 70 0d 00 00 00 8a 00 07 | 01 00 01 40 00 92 01 53 |p.......|...@...S|
|00005d10| 00 ec a0 04 00 00 00 00 | 00 01 00 14 00 0c 00 00 |........|........|
|00005d20| 00 10 49 6e 74 65 72 66 | 61 63 65 20 49 6e 66 6f |..Interf|ace Info|
|00005d30| 00 00 6f 6e 20 6d 6f 75 | 73 65 55 70 0d 70 75 73 |..on mou|seUp.pus|
|00005d40| 68 20 63 61 72 64 0d 76 | 69 73 75 61 6c 20 64 69 |h card.v|isual di|
|00005d50| 73 73 6f 6c 76 65 0d 67 | 6f 20 74 6f 20 62 6b 67 |ssolve.g|o to bkg|
|00005d60| 6e 64 20 22 4c 54 20 43 | 61 6c 65 6e 64 61 72 20 |nd "LT C|alendar |
|00005d70| 49 6e 74 65 72 66 61 63 | 65 20 49 6e 66 6f 22 0d |Interfac|e Info".|
|00005d80| 65 6e 64 20 6d 6f 75 73 | 65 55 70 0d 00 00 00 22 |end mous|eUp...."|
|00005d90| 00 0e 02 01 00 01 00 84 | 00 12 01 a9 00 01 00 00 |........|........|
|00005da0| 00 00 00 01 00 14 00 0a | 00 00 00 0d 00 00 00 00 |........|........|
|00005db0| 00 5a 00 11 01 00 00 14 | 00 47 00 2d 00 77 00 00 |.Z......|.G.-.w..|
|00005dc0| 00 00 00 00 00 01 00 00 | 00 0c 00 00 00 10 00 00 |........|........|
|00005dd0| 6f 6e 20 6d 6f 75 73 65 | 55 70 0d 73 65 6e 64 20 |on mouse|Up.send |
|00005de0| 6d 6f 75 73 65 55 70 20 | 74 6f 20 62 75 74 74 6f |mouseUp |to butto|
|00005df0| 6e 20 22 41 64 76 61 6e | 63 65 22 0d 65 6e 64 20 |n "Advan|ce".end |
|00005e00| 6d 6f 75 73 65 55 70 0d | 00 00 00 01 4a 61 6e 75 |mouseUp.|....Janu|
|00005e10| 61 72 79 00 00 0f 46 65 | 62 72 75 61 72 79 00 00 |ary...Fe|bruary..|
|00005e20| 10 4d 61 72 63 68 00 00 | 11 41 70 72 69 6c 00 00 |.March..|.April..|
|00005e30| 12 4a 75 6e 65 00 00 13 | 4a 75 6c 79 00 00 14 41 |.June...|July...A|
|00005e40| 75 67 75 73 74 00 00 18 | 4f 63 74 6f 62 65 72 00 |ugust...|October.|
|00005e50| 00 19 4e 6f 76 65 6d 62 | 65 72 00 00 1a 44 65 63 |..Novemb|er...Dec|
|00005e60| 65 6d 62 65 72 00 00 0b | 4d 61 79 00 00 0d 53 65 |ember...|May...Se|
|00005e70| 70 74 65 6d 62 65 72 00 | ff fe 4c 79 66 65 54 79 |ptember.|..LyfeTy|
|00005e80| 6d 65 aa 20 43 61 6c 65 | 6e 64 61 72 00 ff fd 41 |me. Cale|ndar...A|
|00005e90| 20 48 79 2d 50 65 72 70 | 65 74 75 61 6c 20 43 61 | Hy-Perp|etual Ca|
|00005ea0| 6c 65 6e 64 61 72 0d 63 | 6f 76 65 72 69 6e 67 20 |lendar.c|overing |
|00005eb0| 74 68 65 20 73 61 6d 65 | 20 64 61 74 65 20 72 61 |the same| date ra|
|00005ec0| 6e 67 65 20 61 73 20 48 | 79 70 65 72 43 61 72 64 |nge as H|yperCard|
|00005ed0| a8 20 28 31 39 30 34 2d | 32 30 33 39 29 64 65 76 |. (1904-|2039)dev|
|00005ee0| 65 6c 6f 70 00 ff fc 66 | 72 6f 6d 20 50 68 69 6c |elop...f|rom Phil|
|00005ef0| 20 54 6f 6c 6c 00 ff fa | 54 68 69 73 20 69 73 20 | Toll...|This is |
|00005f00| 53 68 61 72 65 57 61 72 | 65 2e 20 20 50 6c 65 61 |ShareWar|e.  Plea|
|00005f10| 73 65 20 63 6c 69 63 6b | 20 6f 6e 20 74 68 65 20 |se click| on the |
|00005f20| 22 53 68 61 72 65 57 61 | 72 65 20 49 6e 66 6f 22 |"ShareWa|re Info"|
|00005f30| 20 62 75 74 74 6f 6e 20 | 62 65 6c 6f 77 2e 0d 43 | button |below..C|
|00005f40| 6c 69 63 6b 20 28 61 6c | 6d 6f 73 74 29 20 61 6e |lick (al|most) an|
|00005f50| 79 77 68 65 72 65 20 6f | 6e 20 74 68 69 73 20 70 |ywhere o|n this p|
|00005f60| 61 67 65 20 6f 72 20 74 | 79 70 65 20 22 52 65 74 |age or t|ype "Ret|
|00005f70| 75 72 6e 22 20 74 6f 20 | 61 64 76 61 6e 63 65 20 |urn" to |advance |
|00005f80| 74 6f 20 74 68 65 20 63 | 61 6c 65 6e 64 61 72 73 |to the c|alendars|
|00005f90| 2e 0d 43 6c 69 63 6b 20 | 6f 6e 20 74 68 65 20 22 |..Click |on the "|
|00005fa0| 41 62 6f 75 74 22 20 42 | 61 6c 6c 6f 6f 6e 20 69 |About" B|alloon i|
|00005fb0| 6e 20 74 68 65 20 75 70 | 70 65 72 20 6c 65 66 74 |n the up|per left|
|00005fc0| 20 74 6f 20 63 6f 6d 65 | 20 62 61 63 6b 20 74 6f | to come| back to|
|00005fd0| 20 74 68 69 73 20 63 61 | 72 64 2e 0d 43 6c 69 63 | this ca|rd..Clic|
|00005fe0| 6b 20 6f 6e 2c 20 6f 72 | 20 74 79 70 65 2c 20 74 |k on, or| type, t|
|00005ff0| 68 65 20 6c 65 66 74 20 | 6f 72 20 72 69 67 68 74 |he left |or right|
|00006000| 20 61 72 72 6f 77 73 20 | 74 6f 20 67 6f 20 62 61 | arrows |to go ba|
|00006010| 63 6b 77 61 72 64 20 6f | 72 20 66 6f 72 77 61 72 |ckward o|r forwar|
|00006020| 64 20 61 20 79 65 61 72 | 2e 0d 43 6c 69 63 6b 20 |d a year|..Click |
|00006030| 6f 6e 20 22 54 6f 64 61 | 79 22 20 74 6f 20 67 6f |on "Toda|y" to go|
|00006040| 20 74 6f 20 74 68 65 20 | 63 61 6c 65 6e 64 61 72 | to the |calendar|
|00006050| 20 74 68 61 74 20 64 69 | 73 70 6c 61 79 73 20 74 | that di|splays t|
|00006060| 6f 64 61 79 27 73 20 64 | 61 74 65 2e 0d 43 6c 69 |oday's d|ate..Cli|
|00006070| 63 6b 20 6f 6e 20 22 50 | 69 63 6b 20 61 20 59 65 |ck on "P|ick a Ye|
|00006080| 61 72 22 20 74 6f 20 67 | 6f 20 74 6f 20 61 6e 79 |ar" to g|o to any|
|00006090| 20 79 65 61 72 20 69 6e | 20 48 79 70 65 72 43 61 | year in| HyperCa|
|000060a0| 72 64 27 73 a8 20 72 61 | 6e 67 65 2e 0d 54 79 70 |rd's. ra|nge..Typ|
|000060b0| 65 20 22 54 61 62 22 2c | 20 61 20 64 61 74 65 20 |e "Tab",| a date |
|000060c0| 69 6e 20 61 6e 79 20 48 | 43 20 66 6f 72 6d 61 74 |in any H|C format|
|000060d0| 2c 20 61 6e 64 20 22 52 | 65 74 75 72 6e 22 20 74 |, and "R|eturn" t|
|000060e0| 6f 20 67 6f 20 74 6f 20 | 61 20 63 61 6c 65 6e 64 |o go to |a calend|
|000060f0| 61 72 20 77 69 74 68 20 | 74 68 61 74 20 64 61 74 |ar with |that dat|
|00006100| 65 2e 0d 43 6c 69 63 6b | 20 6f 6e 20 61 6e 79 20 |e..Click| on any |
|00006110| 64 61 74 65 20 6f 6e 20 | 61 20 63 61 6c 65 6e 64 |date on |a calend|
|00006120| 61 72 20 74 6f 20 70 75 | 74 20 74 68 61 74 20 64 |ar to pu|t that d|
|00006130| 61 74 65 20 69 6e 74 6f | 20 74 68 65 20 22 53 65 |ate into| the "Se|
|00006140| 6c 65 63 74 65 64 20 44 | 61 74 65 22 20 66 69 65 |lected D|ate" fie|
|00006150| 6c 64 20 0d 6f 6e 20 74 | 68 65 20 75 70 70 65 72 |ld .on t|he upper|
|00006160| 2d 72 69 67 68 74 20 63 | 6f 72 6e 65 72 20 6f 66 |-right c|orner of|
|00006170| 20 74 68 65 20 43 61 6c | 65 6e 64 61 72 2e 20 20 | the Cal|endar.  |
|00006180| 48 6f 6c 64 69 6e 67 20 | 64 6f 77 6e 20 74 68 65 |Holding |down the|
|00006190| 20 6f 70 74 69 6f 6e 20 | 6b 65 79 20 77 68 69 6c | option |key whil|
|000061a0| 65 20 63 6c 69 63 6b 69 | 6e 67 20 61 6c 73 6f 20 |e clicki|ng also |
|000061b0| 70 75 74 73 20 74 68 65 | 20 73 65 6c 65 63 74 65 |puts the| selecte|
|000061c0| 64 20 64 61 74 65 20 69 | 6e 74 6f 20 74 68 65 20 |d date i|nto the |
|000061d0| 43 6c 69 70 62 6f 61 72 | 64 2e 20 20 43 6c 69 63 |Clipboar|d.  Clic|
|000061e0| 6b 20 6f 6e 20 74 68 65 | 20 6d 6f 6e 74 68 20 6f |k on the| month o|
|000061f0| 72 20 74 68 65 20 79 65 | 61 72 20 64 69 73 70 6c |r the ye|ar displ|
|00006200| 61 79 65 64 20 74 6f 20 | 63 68 61 6e 67 65 20 74 |ayed to |change t|
|00006210| 68 65 20 6d 6f 6e 74 68 | 20 61 6e 64 20 79 65 61 |he month| and yea|
|00006220| 72 20 6f 6e 6c 79 20 6f | 72 20 79 65 61 72 20 6f |r only o|r year o|
|00006230| 6e 6c 79 20 6f 66 20 74 | 68 65 20 22 53 65 6c 65 |nly of t|he "Sele|
|00006240| 63 74 65 64 20 44 61 74 | 65 22 2e 0d 43 6c 69 63 |cted Dat|e"..Clic|
|00006250| 6b 20 74 68 65 20 22 50 | 6f 70 20 43 61 72 64 22 |k the "P|op Card"|
|00006260| 20 61 72 72 6f 77 20 6f | 72 20 74 79 70 65 20 22 | arrow o|r type "|
|00006270| 45 6e 74 65 72 22 20 74 | 6f 20 67 6f 20 62 61 63 |Enter" t|o go bac|
|00006280| 6b 20 74 6f 20 74 68 65 | 20 63 61 6c 6c 69 6e 67 |k to the| calling|
|00006290| 20 73 74 61 63 6b 2e 0d | 43 6c 69 63 6b 20 6f 6e | stack..|Click on|
|000062a0| 20 22 49 6e 74 65 72 66 | 61 63 65 20 49 6e 66 6f | "Interf|ace Info|
|000062b0| 22 20 66 6f 72 20 69 6e | 66 6f 72 6d 61 74 69 6f |" for in|formatio|
|000062c0| 6e 20 6f 6e 20 70 6f 72 | 74 69 6e 67 20 73 65 6c |n on por|ting sel|
|000062d0| 65 63 74 65 64 20 64 61 | 74 65 73 20 74 6f 20 6f |ected da|tes to o|
|000062e0| 74 68 65 72 20 73 74 61 | 63 6b 73 2e 0d 43 6c 69 |ther sta|cks..Cli|
|000062f0| 63 6b 20 6f 6e 20 22 42 | 72 65 65 7a 65 20 42 79 |ck on "B|reeze By|
|00006300| 2e 2e 2e 22 20 62 65 6c | 6f 77 20 74 6f 20 67 6f |..." bel|ow to go|
|00006310| 20 6f 6e 20 74 6f 20 74 | 68 65 20 63 61 6c 65 6e | on to t|he calen|
|00006320| 64 61 72 73 20 77 68 65 | 6e 20 79 6f 75 20 65 6e |dars whe|n you en|
|00006330| 74 65 72 20 74 68 69 73 | 20 73 74 61 63 6b 2e 0d |ter this| stack..|
|00006340| 55 73 65 20 69 74 20 69 | 6e 20 67 6f 6f 64 20 68 |Use it i|n good h|
|00006350| 65 61 6c 74 68 2e 0d 00 | ff f6 66 61 6c 73 65 00 |ealth...|..false.|
|00006360| 00 1d 0d 0d 0d 00 00 22 | 4d 6f 6e 64 61 79 2c 20 |......."|Monday, |
|00006370| 4d 61 79 20 31 2c 20 31 | 39 38 39 00 ff f2 a8 48 |May 1, 1|989....H|
|00006380| 79 70 65 72 43 61 72 64 | 20 69 73 20 61 20 72 65 |yperCard| is a re|
|00006390| 67 69 73 74 65 72 65 64 | 20 74 72 61 64 65 6d 61 |gistered| tradema|
|000063a0| 72 6b 20 6f 66 20 41 70 | 70 6c 65 20 43 6f 6d 70 |rk of Ap|ple Comp|
|000063b0| 75 74 65 72 20 43 6f 72 | 70 6f 72 61 74 69 6f 6e |uter Cor|poration|
|000063c0| 00 46 69 72 73 74 20 4c | 54 20 43 61 6c 65 6e 64 |.First L|T Calend|
|000063d0| 61 72 20 43 61 72 64 00 | 6f 6e 20 72 65 74 75 72 |ar Card.|on retur|
|000063e0| 6e 4b 65 79 0d 73 65 6e | 64 20 6d 6f 75 73 65 55 |nKey.sen|d mouseU|
|000063f0| 70 20 74 6f 20 62 75 74 | 74 6f 6e 20 22 41 64 76 |p to but|ton "Adv|
+--------+-------------------------+-------------------------+--------+--------+